Problem bei Löschen aus String

[chris]

hi,

vielleicht so (nicht getestet):

Delphi-Quellcode:

  TrimString := Trim(OriginalString);
  SemikolonString := StringReplace(TrimString, ' ', ';', [rfReplaceAll]);
  iLaenge := Length(OriginalString);
  repeat
    ok := true;
    for i := 0 to (iLaenge - 1) do
      if (SemikolonString[i] = ';') and (SemikolonString[i + 1] = ';') then begin
        Delete(SemikolonString, i, 1);
        ok := false
      end;
  until ok;
  result := SemikolonString