Thema: Delphi string zerlegen

Einzelnen Beitrag anzeigen

newuser01

Registriert seit: 30. Aug 2006
248 Beiträge
 
Delphi 7 Professional
 
#1

string zerlegen

  Alt 22. Dez 2007, 23:02
Delphi-Quellcode:
sl_e.LoadFromStream(Temp);

sl_TMP.StrictDelimiter := true;
sl_TMP.Delimiter := '#';

for a := 0 to sl_e.Count - 1 do
begin
  sl_tmp.DelimitedText := sl_e.Strings[a];

    for b := 1 to sl_tmp.Count - 1 do
    begin
      s := s + ' ' + sl_e.Strings[0];
    end;

  re_a.Lines.Add(s);
  sl_tmp.Clear;
  s := '';
end;
Nach dem Durchlauf ist in re_a-Lines.Strings[Count - 1] (letzte Eintrag) nur noch folgender String drin

D: { 59789999999999 { 555aaa666bbb777ccc }}

Ich möchte jetzt aus diesem String, nur noch den Wert 555aaa666bbb777ccc rausholen und einer Variable übergeben. Dieser Wert ist immer anders! Das einzige was immer gleich ist sind die Klammern "{" und "}}" sowie das "D:" Ich weis das man dies mit "pos" und "copy" lösen könnte aber ich stoß dabei an meine Grenzen Vielleicht könnt ihr ja ein wenig helfen
Gruß: Holger

[Hobby-Programmierer]
  Mit Zitat antworten Zitat