Hallo, da ich wirklich Anfänger bin, fällt ir einiges schwer. Ich bitte um euer Verständnis.
Und ich finde die Hilfe hier sehr gut, Danke.
Habe folgendes Problem:
Ich will vier Seriennnummern eingeben ANS1 bis ANS4 und diese in eine Textdatei speichern.
Wie kann ich den unten stehenden Code durch evtl. einer Funktion kürzen?
Danke.
Delphi-Quellcode:
//Seriennummer ANS1 eingeben
procedure TForm1.Edit2Exit(Sender: TObject);
var Text_Datei: TextFile;
s:String;
begin
AssignFile (Text_Datei, 'C:\Messwerte.txt');
Append(Text_Datei);
s := Edit2.Text;
Writeln(Text_Datei,s+' '+'ANS1');
CloseFile(Text_Datei);
end;
//Seriennummer ANS2 eingeben
procedure TForm1.Edit3Exit(Sender: TObject);
var Text_Datei: TextFile;
s:String;
begin
AssignFile (Text_Datei, 'C:\Messwerte.txt');
Append(Text_Datei);
s := Edit3.Text;
Writeln(Text_Datei,s+' '+'ANS2');
CloseFile(Text_Datei);
end;
//Seriennummer ANS3 eingeben
procedure TForm1.Edit4Exit(Sender: TObject);
var Text_Datei: TextFile;
s:String;
begin
AssignFile (Text_Datei, 'C:\Messwerte.txt');
Append(Text_Datei);
s := Edit4.Text;
Writeln(Text_Datei,s+' '+'ANS3');
CloseFile(Text_Datei);
end;
//Seriennummer ANS4 eingeben
procedure TForm1.Edit5Exit(Sender: TObject);
var Text_Datei: TextFile;
s:String;
begin
AssignFile (Text_Datei, 'C:\Messwerte.txt');
Append(Text_Datei);
s := Edit5.Text;
Writeln(Text_Datei,s+' '+'ANS4');
CloseFile
(Text_Datei);
end;
[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten Mal bitte selber machen. Danke. Mfg, Luckie[/edit]