AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

#0 durch "nichts" ersetzen

Ein Thema von Helmi · begonnen am 14. Aug 2010 · letzter Beitrag vom 16. Aug 2010
Antwort Antwort
Seite 1 von 2  1 2   
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, 10: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
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 10:38
Oder StringReplace()
Markus Kinzler
  Mit Zitat antworten Zitat
Win32.API

Registriert seit: 23. Mai 2005
312 Beiträge
 
#3

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 10:42
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));
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#4

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 10:47
Delphi-Referenz durchsuchenDelete
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Win32.API

Registriert seit: 23. Mai 2005
312 Beiträge
 
#5

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 11:04
Zitat von RAD Studio VCL Reference Delete:
If count specifies more characters than remain starting at the index, System::AnsiStringBase:elete removes the rest of the string. If count is less than 0, no characters are deleted.
Also nicht sonderlich performant.
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 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
Benutzerbild von Daniela.S
Daniela.S

Registriert seit: 1. Mär 2008
Ort: Niederösterreich
224 Beiträge
 
Delphi XE4 Enterprise
 
#7

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 12:02
   str := StringReplace( str, #0, '', [rfReplaceAll] );
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#8

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 12:09
StringReplace nutzt intern blöder Weise einen PChar-Pos, welches bei 0 endet und ignoriert die Längenangabe des Strings.

Also For+Delete oder das Schnellere von Win32.API oder eine PChar-Variante, welche auf die Längenangabe und nicht auf ein #0 hört.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 12:30
Kleine Änderung (allerdings auch ungetestet):
Delphi-Quellcode:
  i := 0;
  SetLength(sTmp, Length(s));
  for c in s do
  begin
    if (c <> #0) then
    begin
      //erst erhöhen, sonst Zugriff auf String[0]
      inc(i);
      s[i] := c;
    end;
  end;
  //jetzt müsste i der exakten Länge entsprechen
  SetLength(sTmp, i);
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

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

AW: #0 durch "nichts" ersetzen

  Alt 14. Aug 2010, 18:11
Danke für eure Antworten!

Habs jetzt endgültig so gemacht:

Delphi-Quellcode:
    //String aus StringStream auslesen
    S_Data := StringStream.DataString;

    //String auf die Länge des Datenstrings setzen
    SetLength(S, length(S_Data));

    //#0 ausfiltern und in neuen String schreiben
    for i := 1 to length(S_Data) do
      begin
        If S_Data[i] <> #0 then
          begin
            inc(j);
            S[j] := S_Data[i];
          end;
      end;

    //wirkliche Größe des Strings setzen
    SetLength(S, j);
mfg
Helmi

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

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz