string zeichenweise durchlaufen

[DocZenith]

Hi,

folgende frage: wie kann ich eine stringvariable ( var msg: string;) zeichenweise durchlaufen?
anfangs dachte ich es geht mit

for i := 1 to stringlaenge do
msg[i];

aber es geht so nicht.

bekomme folgenden string über einen socket geliefert: msg := ' -1 -2' und ich möchte die zeichen zwischen den
ersten beiden leerzeichen mit copy auslesen.

[inherited]

Delphi-Quellcode:

for i := 1 to Length(msg) do
begin
  msg[i]//...
end;

Un so weida un so foat^^

1 ist das erste Zeichen, 2 das zweite...

€dit ich glaub ich hab dich falsch verstanden...
Meinst du wie du den Inhalt zwischen 2 leerzeichen im String rauskopierst?

[fkerber]

Hi!

Schau dir mal die Funktionen Pos und copy an.


Ciao Frederic

[Nikolas]

Wenn du nicht genau weisst, wie lang die Zeichenkette zwischen den Leerzeichen ist, kannst du auch Posex benutzen. Beim ersten mal Offset auf 1 setzen und nach dem ersten Leerzeichen suchen. Dann Offset auf die gefundene Position setzen und nach dem nächsten leerzeichen setzen. Diese beiden Positionen kannst du dann Copy übergeben. Das ist wahrscheinlich schöner, als den String Zeichen für Zeichen durchzusuchen.

[DocZenith]

ich glaub PosEx gibt es bei delphi 6.0 noch nicht :(

[MrKnogge]

markier mal "PosEx" und drücke F1.

[Klaus01]

nö, gibt es bei Delphi 6.0 nicht.

Grüße
Klaus

[Hawkeye219]

Hier ist ein guter Ersatz für PosEx. :wink:

Gruß Hawkeye

[turboPASCAL]

Och, warum soll es die nicht geben ?

Delphi-Quellcode:

function PosEx(const Substr: string; const S: string; Offset: Integer): Integer;
begin
  if Offset <= 0 then Result := 0 else
    Result := Pos(Substr, Copy(S, Offset, Length(S)));

  if Result <> 0 then
    Result := Result + Offset - 1;
end;

Oder ? ;)

// Edit: War ich zu langsam ?

[DocZenith]

OK, danke.
Ihr habt mir alle super weitergeholfen und meine prozedur läuft auch nun.