Forum: Sonstige Fragen zu Delphi
Delphi
by oki,
18. Apr 2009
Hmmm :gruebel: das StringReplace nicht funzt wundert mich. Ich hab den Code zwar nicht explizit getestet, aber an anderer Stelle habe ich die Funktion des öfteren benutzt. Ob nun genau für #0 kann ich aber auch nicht mehr sagen. Aber egal, dein Problem ist gelöst und das war der Sinn der Sache.
Noch ein schönes Wochenende und Gruß
oki
Forum: Sonstige Fragen zu Delphi
Delphi
by oki,
17. Apr 2009
Ich denke, so sollte es klappen. Code ungeprüft, Rest selber machen:
procedure ReadText(AFileName : String);
var FStream : TFileStream;
SStream : TStringStream;
s : String;
begin
s := '';
FStream := TFileStream.Create(AFileName);
SStream := TStringStream.Create(s);
Forum: Sonstige Fragen zu Delphi
Delphi
by oki,
17. Apr 2009
Hi,
einlesen wie jaenicke beschrieben hat. Alle #0 ersetzen mittels:
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
Für OldPattern #0 und für NewPattern '' oder #32 für Leerzeichen angeben. Flags: rfReplaceAll
Gruß oki
Forum: Sonstige Fragen zu Delphi
Delphi
by oki,
17. Apr 2009
Hi,
Memos mögen definitiv keine #0. Lade die Datei in einen Stream, entferne alle #0, und übergieb das dann dem Memo.
Gruß oki