Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Umkehrfunktion zu ReadSection()

  Alt 14. Jun 2016, 09:28
Was du machen könntest, wäre mit WriteString Stringlist.Text speichern.Da würde ich allerdings vorher die LineBreaks durch ein anderes Zeichen ersetzen und beim Lesen wieder zurück.

Delphi-Quellcode:
const
  cLineBreak = #124;

..

  S := StringReplace(SL.Text, sLineBreak, cLineBreak, [rfReplaceAll]);
  Ini.WriteString(‘Section’, ‘Ident’, S);

..

  S := Ini.ReadString(‘Section’, ‘Ident’, ‘’);
  SL.Text := StringReplace(S, cLineBreak, sLineBreak, [rfReplaceAll]);
  Mit Zitat antworten Zitat