String teilen :)

**BongoTrommler**

Huu hab mal wieder eine Frage....

Also ich hab ein String, der sieht ungefähr so aus 127:53111:2

Jetzt will ich, dass der String gesplittet wird... alles vor dem ersten : wird der variablen Test1 zugewisen
...der mittlere Teil, also zwischen den : wird var2 zugewiesen ... und der letze teil soll an var3 gehen... hat jmd nen Plan wie ichs machen könnte?

Hab bisher so probiert:

zusammenfalten · markieren

Delphi-Quellcode:

			 var   Text, Part1, Part2,part2: string;

    position : Byte;

    trenner : char;

begin

  Text := memo1.lines[0];

  trenner := ':';

  position := pos(trenner,text);

  if position > 1 then

    begin

       Part1 := copy(text,1,position - 1);

       Part2 := copy(text,2,Position + 1);

      part2 := copy(text,3,Position + 2);

      showmessage( Part1);

      showmessage( Part2);

      showmessage(part2);

    end;

end;

... Bis zum ersten Zeichen geht auch alles...nur danach hörts auf... bin dankbar über jede antwort

**Flamingo**

Soweit ich weiß entfernt copy nicht den Teilstring sondern liest ihn lediglich aus. Um diesen Effekt zu erreichen könntest du zusätzlich noch die delete-Funktion benutzen.

**jfheins**

explode

**dominikkv**

zusammenfalten · markieren

Delphi-Quellcode:

			var

  List: TStringList;

begin

  List := TStringList.Create;

  List.Delimitter := ':';

  List.StrictDelimitter := True;

  List.DelimittedText := '127:53111:2';

  showmessage(List[0]);

  showmessage(List[1]);

  showmessage(List[2]);

  List.Free;

**Matze**

@Dominik: Wenn, dann machen wir's gleich richtig und verwenden Resourcenschutzblöcke. Dann wird die Stringlist auch freigegeben, wenn zwischen "Create" und "Free" ein Fehler auftreten sollte.

markieren

Delphi-Quellcode:

			List := TStringList.Create;

try

  // schreiben / lesen

finally

  FreeAndNil(List); // oder "List.Free;"

end;

Grüße, Matze

**BongoTrommler**

kk, danke werds mal probieren

Edit: Klappts, dank dir...allerdings haste bei Delimitter nen 't' zuviel...

ansonsten wunderbar

habe dank

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

String teilen :)

String teilen :)

Re: String teilen :)

Re: String teilen :)

Re: String teilen :)

Re: String teilen :)

Re: String teilen :)

Forumregeln

Flamingo Registriert seit: 14. Sep 2009 6 Beiträge	#2 Re: String teilen :) 17. Sep 2009, 17:38 Soweit ich weiß entfernt copy nicht den Teilstring sondern liest ihn lediglich aus. Um diesen Effekt zu erreichen könntest du zusätzlich noch die delete-Funktion benutzen.
	Zitat

jfheins Registriert seit: 10. Jun 2004 Ort: Garching (TUM) 4.579 Beiträge	#3 Re: String teilen :) 17. Sep 2009, 17:49 explode
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#5 Re: String teilen :) 17. Sep 2009, 18:03 @Dominik: Wenn, dann machen wir's gleich richtig und verwenden Resourcenschutzblöcke. Dann wird die Stringlist auch freigegeben, wenn zwischen "Create" und "Free" ein Fehler auftreten sollte. markieren Delphi-Quellcode: List := TStringList.Create; try // schreiben / lesen finally FreeAndNil(List); // oder "List.Free;" end; Grüße, Matze
	Zitat

BongoTrommler Registriert seit: 12. Nov 2008 21 Beiträge	#6 Re: String teilen :) 17. Sep 2009, 18:57 kk, danke werds mal probieren Edit: Klappts, dank dir...allerdings haste bei Delimitter nen 't' zuviel... ansonsten wunderbar habe dank
	Zitat