Hallo zusammen,
ich habe versucht mir mit Hilfe einer TTabcontrol und einem TValuelistEditor einen Editor für INI-Dateien zu basteln. Das geht auch soweit ganz gut. Nur wenn ich für einen neuen Tab die Liste löschen will (TValuelistEditor.Strings.Clear oder TValuelistEditor.Strings.Text:='') dann kann ich danach nicht mehr mit TValuelistEditor.Strings.Add() arbeiten (Zugriffsverletzung).
Ok das hab ich hingebogen. Und die Anzeige klappt so wie sie soll.
Beim Auslesen der verschiedenen "Tabs" hab ich nicht schlecht gestaunt, als ich jedes mal (6 Tabs) den vollständigen Inhalt der gelesenen INI-Datai geliefert bekam.
Delphi-Quellcode:
var
ai : integer;
ll : tstringlist;
begin
ll:=tstringlist.Create;
for ai:=0 to form1.TabControl1.Tabs.Count-1 do begin
ll.add(form1.TabControl1.Tabs[ai]);
form1.TabControl1.TabIndex:=ai;
ll.add(form1.ValueListEditor1.Strings.Text);
end;
ll.SaveToFile('c:\temp\initest.txt');
ll.Free;
end;
Hab ich etwas übersehen oder ist der TValueListEditor wirklich mit leichten Fehlern behaftet?
Ach ja der Inhalt der INI:
SQL-Code:
[param]
paramcount=3
[param0]
STDPFAD=C:\epoline3.20
STDIPADR=139.7.26.195
SEARCHFOR=E3CLCM.EXE
[param1]
STDPFAD=C:\epoline
STDIPADR=139.7.26.238
SEARCHFOR=E3CLCM.EXE
[param2]
STDPFAD=C:\epoline4.00
STDIPADR=139.7.26.183
SEARCHFOR=OLFCLIENT.EXE
[default]
STDPFAD=C:\epoline4.00
STDIPADR=139.7.26.183
SEARCHFOR=OLFCLIENT.EXE
[files]
textpath=I:\EOLF_TEXTE
EpolineDataPath=I:\EPOLINE.DATA
EPOPPOfiles=\STD_DATA\EPOPPO
EPOPPOFINR1=ep-opposition-data.xml
EP1038files=\STD_DATA\EP1038
EP1038FINR1=\ep-sfd-request.xml
Gruß
K-H
PS Ich nutze hier für D7