Wieder Funktionen, ich lerne es nie ;(

[Christian Seehase]

Moin Teddyman,

als Ergänzung zu heiopeis Vorschlag mit der Eigenschaft Tag:

Fast jedes Control hat diese Eigenschaft. Es handelt sich hierbei um einen 32 Bit Wert, der dem Entwickler zur freien Verfügung steht, und dem Control fest zugeordnet ist.
Du könntest jetzt jedem Deiner Edit Felder hier den Wert zuweisen, der hinter den Text 'ANS' geschrieben werden soll, und kommst dann mit einer einzigen OnExit Routine für alle Edits aus:

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); 
// WICHTIG: 
// Damit dies ohne zusätzliche Sicherheitsabfrage funktioniert
// darf die Routine ausschliesslich von Edit Feldern verwendet werden.
s := (Sender as TEdit).Text; 
Writeln(Text_Datei,s+'  '+'ANS'+IntToStr((Sender as TEdit).Tag)); 
CloseFile(Text_Datei); 
end;

Im Objekt Inspektor kannst Du diese Routine dann jedem in Frage kommenden Edit Feld zuweisen, da anhand des Senders automatisch der richtige Inhalt (Text) und der richtige Wert (Tag) verwendet wird.

[EDIT]
Fehler korrigiert. Siehe Raiks Beitrag.
[/EDIT]