Hi,
Delphi-Quellcode:
var
i: integer;
source,dest: string;
begin
source := 'Das ist '#13#10'ein Test '#8'mit Sonderzeichen;
dest := '';
for i := 1 to length(source) do
if ord(source[i])>=32 then
dest := dest+source[i];
end;
Sollte für 1-Byte Zeichensätze funktionieren. Für eventuelle Probleme mit WideStrings
sollte man zum extrahieren der einzelnen Zeichen eine entsprechende Fuktion nehmen und
nicht mit [] auf das Zeichen zu greifen.
Gruß
Holger
[edit=Christian Seehase] Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]