Danke allerseits,
funktioniert wunderbar
Code hängt bei.
Die Wandlung MemoToStr();
Delphi-Quellcode:
function MemoToStr(M: string): string;
var
i, l: integer;
begin
l := Length(M);
for i := 1 to l - 1 do
begin
if (M[i] = #13) and (M[i + 1] = #10) then
begin
M[i] := '#';
M[i + 1] := '#';
end;
end;
result:=M;
end;
Die Wandlung StrToMemo();
Delphi-Quellcode:
function StrToMemo(S: string): string;
var
i, l: integer;
begin
l := Length(S);
for i := 1 to l - 1 do
begin
if (S[i] = '#') and (S[i + 1] = '#') then
begin
S[i] := #13;
S[i + 1] := #10;
end;
end;
result:=S;
end;
Das Abspeichern eines Memos in ein IniFile
Delphi-Quellcode:
...
DIni.WriteString('Protokoll', 'Fehler', MemoToStr(M_Fehler.Text));
...
Das zurückladen eines Memos aus dem IniFile
Delphi-Quellcode:
...
M_Fehler.Text := StrToMemo(FIni.ReadString('Protokoll', 'Fehler', EmptyStr));
...
Dank und
Grüße
E. B.