Hintereinander schreiben ...

[Devilo]

ALSO nochmal ...

Ganz oben wollte ich wissen, wie man mehrere "Texte" in ein Edit-Fenster bekommt ---> mit diesem Plus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text + 'bla... bla...';
end;

----------

So und jetzt will ich wissen, wie man mehrere solcher Texte, (die ich in verschiedener Reihenfolge anklicke) in ein Edit-Fenster bekommt...

Beispiel: Das es z.B. 100 verschiedene Buttons gibt, mit verschiedenen Texte --->>

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:='blablablabla ... Text';
end;

und diese Texte sollen alle, in diesem Edit-Fenster, in der Reihenfolge erscheinen, wie ich sie anklicke.

Noch ein Beispiel:
Ich klick auf Button1 und im Edit1-Fenster erscheint der Text "ich bin ein Hund" ... dann klick ich auf einen Button2 und dann soll der Text "ich habe ein Haus" im selben Edit1-Fenster, hinter dem ersten Text erscheinen ...

Und das ganze soll so oft gehn wie ich will ...
UND IMMER OHNE DAS DER ERSTE TEXT VERSCHWINDET ...

Gibts da irgendwas ???
... es soll nich unbedingt die Variante von Matze sein...

SO ... mehr kann ich nich erklären ...

[Matze]

Zitat von Matze:

schlechte Lösung, aber geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Stringavriable:=Stringvariable+'zugehoriger Button-Text';
end;

Das bei jedem ButtonClick hinschreiben

einfach mal lesen, oder meinst du das nicht so?

[cylon]

Nach meinen Erfahrungen kann man die Variante mit dem + verwenden, denn das + deutet ja an das der buttontext "hinzugefügt" wird (zu den anderen sätzen...)

[Devilo]

Ich bin noch ein bisschen Doof mit Delphi ... @ Matze
was solln da die Springvariable sein ???

und an cylon ... fang ma oben an zu lesen ...

[cylon]

Zitat:

und an cylon ... fang ma oben an zu lesen ...

ich hab oben angefangen zu lesen...
die variante mit dem + geht halt und ich weiß nicht wieso das nicht gehen sollte??

[Matze]

Zitat von Devilo:

Ich bin noch ein bisschen Doof mit Delphi ... @ Matze
was solln da die Springvariable sein ???

Delphi-Quellcode:

var Stringvariable: string  //kannst sie nennen wie du willst

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Stringavriable:=Stringvariable+'zugehoriger Button-Text';
Edit1.Text:=Stringvariable;
end;

oder gleich direkt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=Edit1.Text+'zugehoriger Button-Text';
end;

[Devilo]

Hast du dir mal durchgelesen was ich will ??? ich wollte was ganz anderes wissen ... logisch geht das mit dem "+" ... aber meinst du nicht das das ein bisschen aufwendig ist ...

und ich wollte nua wissen ob es noch eine andere Variante gibt ...
wenn nicht ... muss ich halt anders ran gehn ...

[Devilo]

aso ...

[cylon]

Ähhmm.. ok hast recht...

[Matze]

Äh, hab ich jetzt alles falsch gemacht?
Wenn ja, dann sorry!