Danke Heipoei,
wie mache ich es denn so, dass die Seriennummern, die in Edit 1 bis Edit 4 stehen in die Messwerte.txt gespeichert werden?
danke.
Delphi-Quellcode:
procedure schreib_ans(sernr: string; ans: Byte); //sernr = die nummer; ans = sernr von 1 bis 4
var
fp: textfile; //dient als filepointer
begin
assignFile(fp, 'C:\Messwerte.txt'); //gibt einen pointer auf die datei
append(fp); //öffnet die datei zum anhängen
writeln(fp, sernr + 'ANS' + IntToStr(ans)); //schreib die sernr + 'Ans' + 1 bis 4
closefile(fp); //schließt die datei wieder
end;
[edit=Luckie]Hallo? Ich würde dich bitte die Delphi-Tags [ delphi] ... [ /delphi] (ohne Leerzeichen) selber zu setzen! Mfg, Luckie[/edit]