3 textfelder inhalte kombiniert speichern und laden

[smc]

Hallo DP!

ich habe derzeit 3 Textfelder die ich einzeln anhand diesem beispiel in eine .ini speichere.

Nun zu meinem Problem, die werte welche in meine 3 Textfelder gehören eigentl. zusammen müssen aber durch getrennte textfelder bearbeitbar sein.

Nach dem Speicher sieht es in etwa so in meiner ini aus:

[beispielRubrik]
textfeld1=wert1
textfeld2=wert2
textfeld3=wert3

Ich will es nun so hinbekommen das die werte beim speichern kombiniert werden damit es in etwa so aussieht:

[beispielRubrik]
textfeld=wert1, wert2, wert3

das laden von diesem wert sollte unteranderem nach dem speichern auch noch funktionieren!

Hat dazu jemand ein beispiel oder eine sonstige Hilfestellung für mich parat? Ich wäre sehr dankbar!


gruß
smc

[ibp]

Herzlich willkomen bei DP

den ersten Tipp gibts gratis...

du könntest das so machen:

Delphi-Quellcode:

atext:tstringlist;
.. 
// zum schreiben in ini
atext.Delimiter:=',';
atext.add(edit1.text);
atext.add(edit2.text);
atext.add(edit3.text);

ini.WriteString('Section_Name', 'Key_Name', atext.DelimitedText);

// zum lesen aus ini
atext.DelimitedText := ini.ReadString('Section_Name', 'Key_Name', '');
..

[smc]

wow, vielen dank für die schnelle antwort ich schau mal ob ich heute abend zeit habe und werde es dann ausprobieren

melde mich dann nocheinmal wegen dem aktuellen stand

[3_of_8]

AFAIK hat aber TStringList.delimitedtext immer einen Bug, der bewirkt, dass ein ' ' immer als Delimiter behandelt wird. Beim Schreiben ist das egal, aber beim Lesen, wenn das 'Text1, Text2, Text3' wieder getrennt wird, könnte es ein Problem werden, wenn einer der drei Werte ein ' ' enthält.

[smc]

kann man das auch irgendwie elegant umgehen?
wenn nicht würde ich zur not eben die leerzeichen in dem textfeld unterbinden, muss dazu dann aber erst nochmal recherchieren

p.s. danke für den tip, hätte sicher länger nach dem fehler gesucht wenn ich ihn entdeckt hätte.

[ibp]

Zitat von 3_of_8:

AFAIK hat aber TStringList.delimitedtext immer einen Bug, der bewirkt, dass ein ' ' immer als Delimiter behandelt wird. Beim Schreiben ist das egal, aber beim Lesen, wenn das 'Text1, Text2, Text3' wieder getrennt wird, könnte es ein Problem werden, wenn einer der drei Werte ein ' ' enthält.

ist das gesichert, ist mir bis jetzt noch nicht aufgefallen, werde es mal testen!

[tomsel]

Gibt's das alte TStringlist.Commatext nicht mehr? Dort gab es keine Probleme mit Spaces und es erfüllt in diesem Fall den gleichen Zweck wie DelimitedText.

[smc]

so habe es eben ausprobiert, das speichern klappt ganz gut, vielen dank.

Habe nun noch eine frage zu dem laden, wie bekomme ich denn die drei werte wert1,wert2,wert3, wieder separat in meine 3 textfelder?

[3_of_8]

Also du machst:

strlst.commatext:=ini.readstring('bla','blubb','') ;

und dann:

edit1.text:=strlst[0];
edit2.text:=strlst[1];
edit3.text:=strlst[2];

Alternativ:

for I:=0 to 2 do
(findcomponent('edit'+inttostr(I+1)) as TEdit).Text:=strlst[I];

[smc]

funktioniert perfekt, vielen dank an alle die mir geholfen haben, ihr seid echt spitze!