Delphi String mit Hilfe einer Schleife zerteilen und auslesen

Thema durchsuchen

Ansicht

Themen-Optionen

String mit Hilfe einer Schleife zerteilen und auslesen

Ein Thema von cRayZo · begonnen am 30. Jul 2007 · letzter Beitrag vom 27. Aug 2007

Vorheriger Beitrag

Nächster Beitrag

alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge

Delphi XE2 Professional

Re: String mit Hilfe einer Schleife zerteilen und auslesen

3. Aug 2007, 01:56

zusammenfalten · markieren

Delphi-Quellcode:

			var

  lCount: Integer;

  lMystr: String;

  lDsts : TStringList;

  lInt1,

  lInt2,

  lInt3 : Integer;

begin

  lMystr := '5;7:9';

  for lCount := 0 to Length(lMyStr)-1 do

    if lMyStr[lCount] in [':', '|'] then

      lMyStr[lCount] := ';';

  lDsts := TStringList.Create();

  splitString(lMyStr, ';', lDsts);

  lInt1 := StrToInt(lDsts.Strings[0]);

  lInt2 := StrToInt(lDsts.Strings[1]);

  lInt3 := StrToInt(lDsts.Strings[2]);

  lDsts.Free;