Inhalt von Edit

[~Freeze~]

HiHo

Ich hab mehrere Editfelder in denen Zahlen eingetragen werden. Wie kann ich jetzt am einfachsten überprüfen ob in jedem Feld was drinsteht?

Thx!

[Darty]

Mit

Delphi-Quellcode:

If edit1.text <> '' then
  begin
  ...
  end

Kannst Du eine Anweisung ausführen lassen wenn im edit Feld etwas steht.

Falls Du aber gemeint hast alle auf einmal zu checken, kannst es ja in einer Schleife durchlaufen lassen.

[X-Dragon]

und so könnte das mit einer Schleife aussehen:

Delphi-Quellcode:

var
  i : Integer;
begin
  for i := 1 to AnzahlDeinerEditFelder do
    if TEdit('Edit'+IntToStr(i)).Text = '' then
    begin 
      TEdit('Edit'+IntToStr(i)).SetFocus;
      ShowMessage('Hier ist nix eingetragen!');
      break;
    end;  
end;

[Luckie]

Crash!!!

[X-Dragon]

Zitat von Luckie:

Crash!!!

Die Edit-Felder müssen natürlich entsprechend bezeichnet sein und die Anzahl sollte man auch richtig einstellen können.

[Luckie]

So geht's:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 3 {Anzahl Edits} do
  begin
    with TEdit(FindComponent('Edit'+IntToStr(i))) do
    begin
      if Text = '' then ShowMessage('Edit'+IntToStr(i)+' ist leer');
    end;
  end;
end;

Vorrausgesetz die Edits heißen Edit1, Edit2, Edit3.

[Luckie]

Zitat von X-Dragon:

Die Edit-Felder müssen natürlich entsprechend bezeichnet sein und die Anzahl sollte man auch richtig einstellen können.

Glaub mir, ich habe deinen Code mit drei Editfelder 1 bis 3 ausprobiert und natürlich die Anzahl angepaßt.
Hier
if TEdit('Edit'+IntToStr(i)).Text = '' then kommt der Crash. Überpüfe es selber wenn du willst. Kompilieren geht aber ausführen nicht.

[X-Dragon]

Zitat von Luckie:

Zitat von X-Dragon:

Die Edit-Felder müssen natürlich entsprechend bezeichnet sein und die Anzahl sollte man auch richtig einstellen können.

Glaub mir, ich habe deinen Code mit drei Editfelder 1 bis 3 ausprobiert und natürlich die Anzahl angepaßt.
Hier
if TEdit('Edit'+IntToStr(i)).Text = '' then kommt der Crash. Überpüfe es selber wenn du willst. Kompilieren geht aber ausführen nicht.

Ups Ich dachte wirklich das würde gehen, seltsam ... . In meinen Programmen, da hab ich gerade extra nochmal nachgeschaut, war es bisher immer sinnvoller die Edit-Felder anders abzufragen, deshalb hab ich es bisher so noch nicht genutzt ...

Also entweder hab ich die Abfrage über FindComponent gemacht bzw z.B. so:

Delphi-Quellcode:

  for i := 0 to ComponentCount -1 do
    if Components[i] is TEdit then
      if TEdit(Components[i]).Tag > 100 then
        ed.Text := '0';