Problem : Schreiben eines Memo1.Text in ein IniFile

[EccoBravo]

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.