Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
5. Mai 2005
ich hab den von mir zuletzt geposteten source natürlich auch getestet und er macht eigentlich genau das was du fragst (sofern ich das verstanden hab). Anstelle von Memo1.Text natürlich den Text aus deiner Datei
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
5. Mai 2005
Ich hoffe diesmal hat sich kein Fehler eingeschlichen
procedure WriteTextToFile(AMaxLineChars: Integer; AText, AFilename: String);
var LStr, LToWrite, LLastPart: String;
LPos: Integer;
LStream: TStream;
begin
LStream := TFileStream.Create(AFilename, fmCreate);
LStr := StringReplace(AText, #13#10, '', );
LToWrite := '';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
5. Mai 2005
achso *g* stand das im ersten Beitrag auch schon? Dann überarbeit ich das ganze halt nochma
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
5. Mai 2005
geht auch einfacher (ungetestet):
var LStr, LStr2: String;
LPos: Integer;
LStream: TStream;
begin
LStream := TFileStream.Create(YourFilename, fmCreate);
LStr := StringReplace(Memo1.Text, #13#10, '', );
LPos := 1;
while (LPos <= length(LStr)) do