Editbox + variable Nummerierung

[rich123]

Hallo zusammen,

Mein Problem ist folgendes:

Und zwar habe ich auf meiner Form eine Menge EditBox-en in die ich verschiedene Werte reinschreibe.
Und zwar mache ich das folgendermaßen:

Delphi-Quellcode:

if zaehler = 1 then EditBox1.Text:='muh';
if zaehler = 2 then EditBox2.Text:='muh';
if zaehler = 3 then EditBox3.Text:='muh';

Aber um das ganze zu umgehen, gibt es vielleicht sowas ändliches wie:

Delphi-Quellcode:

EditBox(zaehler).Text:='muh'

Oder kann man das Problem nur mit einem StringGrid umgehen?

Danke

[mkinzler]

FindComponent()

[rich123]

Danke für die rasche Antwort, werde morgen in der Delphi Hilfe mich schlau machen

[grenzgaenger]

wenn deine edits zusammenhängend sind, kannst doch 'n stringgrid nehmen und die zelle direkt addressieren ... :-)

[rich123]

Ja, das war auch meine erste Idee, nur ist das Programm schon etwas komplex und das alles umzuändern wäre mir zu viel arbeit :P

[rich123]

Also wenn ich die Funktion FindComponent() richtig verstanden habe, funktioniert das so:

Delphi-Quellcode:

BoxName := 'EditBox'+IntToStr(zaehler);
FindComponent(BoxName).Text := 'muh'

Habe leider kein Delphi hier drauf um es zu testen

[mkinzler]

Du musst den Typ noch Casten, den FindComponent liefert ein TComponent

Delphi-Quellcode:

(FindComponent(BoxName) as TEditBox).Text := 'muh';

[rich123]

Ah verstehe, vielen Dank