Leerzeichen/Zeilenumbrüche bis unbekannten Text löschen

[marabu]

Moin,

Zitat von Firewing:

... Wie bekomme ich es realisiert, dass er meine Zeichenkette löscht ..., bis der erste unbekannte Buchstabe auftritt? ...

bei einfachem Text könnte ich mir das so vorstellen:

Delphi-Quellcode:

function SkipChars(sz: PChar; chars: TSysCharSet): PChar;
begin
  while Assigned(sz)
  and (sz^ in chars) do
    Inc(sz);
  Result := sz;
end;

// ZeichenKette := SkipChars(ZeichenKette, [#10,#13,#32]);

Wobei speziell whitespace auch mit Trim() entfernt werden kann.

Grüße vom marabu