Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#6

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 11:09
Oder StringReplace()
StringReplace hört aber beim ersten #0 auf, meines Wissens nach

Nicht getestet:
Delphi-Quellcode:
  i := 0;
  SetLength(sTmp, Length(s));
  for c in s do
  begin
    if (c <> #0) then
    begin
      s[i] := c;
      inc(i);
    end;
  end;
  SetLength(sTmp, pred(i));
mmh - eigentlich kein schlechtes Beispiel - hätt ich auch selbst drauf kommen können
werd ich mal ausprobieren
(wobei for ... in ... do in Delphi 7 noch nicht vorhanden ist)
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<

Geändert von Helmi (14. Aug 2010 um 11:15 Uhr)
  Mit Zitat antworten Zitat