Inhalt von Edit

[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';