BlockWrite

Siemanko mam kodzik przenosi on tak jakby np plik exe do innego pliku i zapisuje jak zrobic aby odczytywał plik i zapisywał a <ort>puzniej</ort> następny plik tylko w innej linijce sorry za ort !

var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;

begin
ListBox1.Items.Add(Folder+FileInfo.Name);
listbox1.ItemIndex := listbox1.ItemIndex+1;
AssignFile(FromF, Folder+FileInfo.Name);
Reset(FromF, 1);	{ Record size = 1 }
AssignFile(ToF, Edit3.Text);	{ Open output file }
Rewrite(ToF, 1);	{ Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF)) + ' bytes...');
repeat
 BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
 BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
 CloseFile(FromF);
 CloseFile(ToF);

// tag delphi do oznaczania kodu.. i nie przepraszaj tylko popraw - detox

// tag delphi do oznaczania kodu.. i nie przepraszaj tylko popraw - detox

Sorry za OT, ale ja nie rozumiem troche was, administratorów. Jak on ma to poprawić, skoro nie ma możliwości poprawiania własnych postów, bo nie jest zalogowany ?

//przeoczenie Detoxa (który nota bene nie jest administratorem ;)) - M

jak zrobic aby odczytywał plik i zapisywał a ort! następny plik tylko w innej linijce

Ja tam ni w ząb nie kumam....