Daten in eine externe Datei Schreiben

[snjake]

Hmm, leider keine Anregungen?


Also ich habe mir schon selbst paar gedanken gemacht, vlt. kann ja einer von euch mir weiter helfen???

===================

procedure TForm1.Button1Click(Sender: TObject);
var Text_Datei : TextFile;
s : String;

begin

//In Textdatei schreiben
AssignFile (Text_Datei, 'C:\Test.txt');
Rewrite(Text_Datei);
s := ('120A'); //Messwert
Write(Text_Datei,s);
Write(Text_Datei,' '); //Abstand zwischen die Messwerte schreiben
s := ('125A'); //Messwert
Write(Text_Datei,s);
CloseFile(Text_Datei);
end;



//aus der Textdatei lesen

procedure TForm1.Button2Click(Sender: TObject);
var list:TStringlist;
begin
list:=TStringlist.create;
list.loadfromfile('C:\Test.txt');
edit1.text:=list.strings[0];
end;

end.



Es funktioniert auch, nur wird natürlich ein ganzer string eingelesen, ich müsste jetzt mitels einer Hilfsvariablen und einer IF-Schleife den String so kürzen dass nur der benötigte Messwert über bleibt. Aber es ist mir zuviel Pfusch, es müsste doch auch möglich sein direkt nur den Wert einzulesen.