TFileStream

Merhaba
benim problemim kisaca su:
elimde iki tane textFile var a ve b diyelim bir button ile b`nin icerigini a`ya kopyalamak istiyorum ama a daki var olan textler silinmeyecek..
bu konuda bilgisi olan arakadaslar, yardimlarinizi bekliyorum
simdiden tessekkurler
Jazzblue...

sorunun cevabini http://www.siberya.com.tr
adresinden Delphi ipucları/Dosyalar'da bulabilirsin.

A dosyası okunacak, b Dosyası onunanların ekleneceği dosya olarak varsayarak :

Var
a,b:File of byte;
okunan, Yazilan, sonyer: Integer;
Buf: array[1..2048] of Char; {2 KB block}
begin
AssignFile(a, 'okunan.txt');
Reset(A, 1); { kayıt büyüklüğü = 1 }
AssignFile(B, 'Yazilan.txt'); { Eklenecek dosyayı }
Reset(B);
sonyer:=FileSize(B); {sonuna eklenecek dosyanın son yeri}
CloseFile(B);

Append(B, 1); { kayıt büyüklüğü = 1 }
repeat
BlockRead(A, Buf, SizeOf(Buf), okunan);
BlockWrite(B, Buf, okunan+sonyer, yazilan);
until (okunan = 0) or (yazilan <> okunan);
CloseFile(A);
CloseFile(B);
end;


Yukarıdaki örneği direk burada yazıyorum. denemedim. Fakat çalışacağını zannediyorum. Eğer sıkıntı çıkarsa
BlockWrite(B, Buf, okunan+sonyer, yazilan);
kısımlarında çıkacaktır. Bu takdirde yazilen+sonyer ilave ederek dene.

ikinci bir sıkıntı çıkacak nokta

until (okunan = 0) or (yazilan <> okunan);

kısmında çıkacaktır. Bu takdirde ise (yazilan<>okunan) kısmına +sonyer ekleyerek deneme yanılma yapabilirsin.

Kolay gelsin.