Hallo zusammen, hab mal wieder ne Frage, lol.
Und zwar würde ich gerne fortlaufende Befehle aus der Variablen Liste[i] in einer textdatei speicher, aber das einzige was mein programm macht ist den opendialog zu saven, aber das will ichz nicht, er soll die neuen Meßwerte der variablen speichern.
Habt Ihr ne Idee.
Hänge mal einen Ausschnitt aus meinem Programm an.
Delphi-Quellcode:
begin
AssignFile(FromF, liste[i]);
Reset(FromF, 1); { Datensatzgröße = 1 }
if SaveDialog1.Execute then { Dialog zum Speichern anzeigen }
begin
AssignFile(ToF, SaveDialog1.FileName); { Ausgabedatei öffnen }
Rewrite(ToF, 1); { Datensatzgröße = 1 }
Canvas.TextOut(10, 10, 'Kopieren von ' + IntToStr(FileSize(FromF))
+ ' Byte...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;