Forum: Sonstige Fragen zu Delphi
Delphi
by ringli,
31. Okt 2008
So, jetzt das Ganze mal mit FileStreams:
procedure AppendString(FS : TFileStream; StrReplace : String);
var
I : Integer;
begin
for I := 0 to Length(StrReplace) - 1 do
begin
FS.Write(StrReplace, 1);
end;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by ringli,
31. Okt 2008
@nahpets:
Danke, deine Idee ist ja genial. :) Habe das testweise mal so gelöst:
var
I : Integer;
INPUT_FILE : TStringList;
OUTPUT_FILE : TStringList;
LengthOfFile : Int64;
OneCharOfFile : Byte;
HtmlTag : Boolean;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by ringli,
26. Okt 2008
Hmm... aber auch da besteht doch dann wieder die Gefahr das Elemente ersetzt werden die nicht ersetzt werden dürfen oder irre ich mich da? Das ist ja im Grunde das was ich mit meinem ersten Ansatz meinte.