Noch eine Frage, ich möchte für alle 10 Edit-Felder überprüfen ,
ob ein Zeichen eingegeben wurde.
Kann man den Code abkürzen ?
Delphi-Quellcode:
if Edit1.Text = '' then application.messagebox('Geben Sie einen Wert ein','Hinweis',48);
if Edit2.text =''..................
......das hab ich schon probiert, hat aber nicht funktioniert....
Delphi-Quellcode:
procedure TForm4.FormShow(Sender: TObject);
var K , Anzahl_Edits :Integer; myEdit:String;
begin
for K := 1 to Anzahl_Edits do
if
(findcomponent(myEdit+inttostr(k)) as TEdit).text =''
then
begin
application.messagebox('Geben Sie einen Wert ein','Hinweis',48);
exit;
end;
end;