Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

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

#0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 09:32
Hallo,

ich habe folgenden Code:

Delphi-Quellcode:
  //FileStream und StringStream erzeugen
  FileStream := TFileStream.Create(Datei, fmOpenRead);
  StringStream := TStringStream.Create(S);

  try
    //FileStream in StringStream kopieren
    FileStream.Position := 0;
    StringStream.CopyFrom(FileStream, FileStream.Size);

    //String aus StringStream auslesen
    S := StringStream.DataString;

    //#0 durch #32 ersetzen
    for i := 1 to length(S) do
      begin
        If S[i] = #0 then
          S[i] := #32;
      end;

    //Text in StringList laden
    SL_NCUpgrade.Text := S;
Dort ersetz ich #0 durch #32 (Leerzeichen)
Wie kann ich aber das #0 durch nichs ersetzen? - also komplett löschen?
Muss ich da wirklich mittels delete arbeiten?
mfg
Helmi

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