string problem

[Der_Unwissende]

Hi,
du könntest deinen String so zerlegen :

Delphi-Quellcode:

  
  if Pos('->', str) > 0 then
    begin
      hg := trim(copy(str, 1, Pos('->', str) - 1));
    end;
  if Pos(':', str) > 0 then
    begin
      G := trim(copy(str, Pos(':', str) + 1, LastDelimiter(',', str) - Pos(':', str) - 1));
    end;
  if Pos(',', str) < LastDelimiter(',', str) then
    begin
      w := trim(copy(str, LastDelimiter(',', str) + 1, length(str) - LastDelimiter(',', str) - 1));
    end;

Gruß Der Unwissende