Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
5. Jan 2006
Du kannst natürlich das Ganze auch vereinfachen auf die 2. Strinliste sl2 verzichten und den String s2 direkt setzten mit s2 := sl1.ValueFromIndex + ';'+sl1.ValueFromIndex+';'+ ...
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
5. Jan 2006
Ersetze die Zeile sl2.DelimitedText := ''; durch sl2.DelimitedText := ';;;;;;';
oder
benzutze sl2.Add( sl1.ValueFromIndex);
usw.
Problem liegt daran das durch das Setzen das Textes auf '' die Anzahl der Einträge der Stringliste auf 0 gesetzt wird.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
5. Jan 2006
Da wirst du leider nicht drumrumkommen. :-(
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
5. Jan 2006
Habe den Sourcecode ergänzt ( s.o)
Forum: Object-Pascal / Delphi-Language
Delphi
by mkinzler,
5. Jan 2006
Sind die vertauschten Positionen immer gleich?
Statt in einen String zuladen Stringlist verwenden, dann kannst du auf die einzelnen Teilstring indiziert zugreifen.
..
var
..
sl1, sl2: TStrings;
begin