Hintereinander schreiben ...

[Devilo]

Ich hab keine bessere Themen-Überschrift gefunden ... :gruebel:

MEIN PROBLEM: Ich will (z.B. mit "Edit1.Text:='text ... blabla';)
was in ein Edit-Fenster reinmachn ... funktioniert auch ... aba ich will mehrere Texte hintereinander in dieses Fenster (Memo, Edit) ...

Beispiel: ich klick auf nen Button (INHALT: "Edit1.Text:='text ... blabla';) ---> der TExt wird ins Edit-Fenster eingefügt. und danach klick ich auf nen andern Button der einen anderen Text einfügen soll ...
ABER DANN GEHT DER ALTE TEXT WEG UND DAS iS NICH GUT ...

keine ahnung wie das geht ... :wall:

Danke leude :freak:

[ims]

Delphi-Quellcode:

form1.edit1.text := form1.edit1.text + deinNeuerText

gruss, ims

[Tyrael Y.]

für das erste Button

Delphi-Quellcode:

Edit1.Text := 'Koch'

für das zweite Button

Delphi-Quellcode:

Edit2.Text := Edit1.Text + 'Salz'

Ergebis in Edit2 ist Kochsalz

in der art?
oder habe ich dich falsch verstanden?

Gruß

[choose]

Hallo Devilo,

das Konkatenieren von Strings (Aneinanderhängen) unter Delphi ist mithilfe des plus("+")-Operators relativ schlicht gelöst

Delphi-Quellcode:

myString:= 'A text';
myString:= myString+' and another text.';
Showmessage(myString);

Dank des Konzepts der Delphi-Properties (Eigenschaften) kannst Du so ganz ähnlich mit Eigenschaften von Objekten (zB TEdit.Text) verfahren. Arbeite mit ihnen einfach so, als wenn es Variablen wären (was natürlich nur bedingt stimmt).

[Devilo]

Jut Leude reicht ...

Cool danke ...

Ihr habt mia geholfen ... Danke :dancer:

Bye

[Devilo]

Und wie mach ich das ... wenn es sozusagen nach einem Zufallsprinzip funktioniert ...

Das es z.B. 100 verschiedene Buttons gibt, mit verschiedenen Texte
und diese Texte sollen alle in der Reihenfolge erscheinen, wie ich sie anklicke. und alle sollen nua in einem Edit-Fenster erscheinen ...

DANKE LEUDE

[MrKnogge]

Wenn du mirdie Frage mal erklärst kann ich dir sicher helfen,
aber ich versteh nur Bahnhofundkofferklau :shock:

[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 :mrgreen:

[MrKnogge]

Aber weis meint er mit Zufallsprinzip ?

[Matze]

Oh stimmt, das hab ich auch nicht verstanden :oops:

[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:

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 :mrgreen:

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:

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!
:duck:

[Devilo]

ok ... trotzdem danke an alle ...
ich glaub ich habs so einigermaßen verstanden ...
und jetzt werd ich mich ransetzen und meine Finger wund tippen

:hi:

[Devilo]

ich glaub du hast nischt flasch verstanden ... war doch richitg oda net???

[Matze]

Zitat:

Zitat von 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 ...

Das hast du auf meinen Post geantwortet. :gruebel:

[Edit]Ups, ich sehe, das war auf Cylon bezogen. (1 Min nach meinem Post) :mrgreen: [/Edit]

[Devilo]

NEIn ... ich hab mit diesem Text

Zitat:

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 ...

meinen Post an Cylon gerichtet ... nich an dich Matze

[Edit] oh ... hast ja allein gemerkt ... hab ich net früher gesehn
och eine 1 Minute später ... SOrry [/Edit] :thuimb: