Substring Problem

[angos]

Hi,

nicht getestet, sollte aber mit den entsprechenden Deklarationen funktionieren.

Delphi-Quellcode:

for i := 0 to Memo2.Lines.Count do
begin
  if Copy(Memo2.Lines[i], 1, 3) = '353' then
  begin
    sHelp := Copy(Memo2.Lines[i], Pos(':', Memo2.Lines[i]), Length(Memo2.Lines[i]);
    
    
    while pos(' ', sHelp) > 0 do
    begin
      Memo3.Lines.Add(Copy(sHelp, 1, Pos(' ', sHelp));
      sHelp := Trim(Copy(sHelp, Pos(' ', sHelp)+1, Length(sHelp)));
    end;

    break;

  end;
end;

Gruß
angos