Zitat von
M. Hassmann:
Listbox.Items[0] := FirstText + ' -> (' + SecondText + ')';
schlagt mich wenn ich was falsch geschrieben habe.
war ein hartes stück arbeit *grins*
Man braucht aber keinen SecondText zu definieren, sondern nur einen Text
wir haben nur einen text und diesen können wir mit ListBox1.Items[i] bestimmen
alle andere Symbolen sind Konstanten wie ->, ( , )
danach soll so:
Delphi-Quellcode:
var wort1, Taktakyswunscht: String;
i: Integer;
begin
for i := 0 to ListBox1.Items.Count-1 do
begin
wort1 := ListBox1.Items[i];
... // ???
Taktakyswunscht := wort1 + ' ' + '->' + ' ' + '(' + wort1 + ')'; // ok
// Taktakyswunscht := wort1 + ' ->' + ' (' + wort1 + ')'; // ok
ListBox2.Items.add(Taktakywunscht);// ok
<>