|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
AW: #0 durch "nichts" ersetzen
16. Aug 2010, 06:32
Hier noch eine Version, die direkt auf dem String arbeitet:
Delphi-Quellcode:
j:=0;
For i:=1 to Length(s) do
if s[i]<>#0 then begin
inc(j);
s[j] := s[i];
end;
SetLength (S,j);
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|