Doppelte Einträge entfernen?

[shmia]

Zitat von smart:

Gibt es in Delphi eine Routine oder Befehl, wo man sagen kann, lösche alle Zeichen vom Anfang der Zeile bis zum nächsten Leerzeichen in dieser Zeile? Denn im Prinzip, sind die Doppelten Wörter immer am Anfang.

„Hallo Hallo Herr Mustermann“

Ja, geklaut aus der JCL:

Delphi-Quellcode:

function StrToken(var S: AnsiString; Separator: AnsiChar): AnsiString;
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;