Random Dosya Yardımı

[ozf_murat]

Arkadaş lar Merhabalar.....Random Dosyalarda Kayıt yaparken
normal kullanımı..
Kayit_tipi = record
barkod : string[30];
miktar : string[10];

yukarıdaki gibidir...
barkod için 30 karakter
miktar için 10 karakter ayır...
ancak benim yapmak istediğim bu kullanılan karakter sayılarını dışarıdan dosyadan alıcam..(bir parametre dosyasından..yada değişkenden)
ne yaptıysan bir türlü olmadı bu konuda fikri olanlar yardımcı lursanız çok sevinicem


şimdiden çok teşekkür ederim...

[fduman]

Runtime'da record ataması nasıl yaparsın bilemiyorum. Pek zannetmiyorum.

Standart dosya erişim yöntemleriyle bunu aşman zor. Şöyle bir yöntem kullanabilirsin. Sana fikir verebilir.

Adı=30 karakter diye dışarıdan aldın diyelim.

Kod: Tümünü seç

var
  adi: string;
  Stream: TFileStream;
begin
  // Adi string in boyutu 30 olsun dedik.
  Setlength(Adi, 30);

  // Dosyayı Stream ile açalım.
  Stream:= TFileStream.Create('BILMEMNE.TXT', fmShareDenyNone);
  try
    // Dosyadan Adi stringinin 1. ofsetine!! 30 karakter okuyalım.
    Stream.Read(Adi[1], 30);
    // Burada Adi stringi dosyadan okunan 30 karakterle dolmuş olarak döner.
  finally
    Stream.Free;
  end;
end;