Hallo,
ich möchte die letzte Section aus einer INI haben, und hole sie mir mit der IniFile.ReadSections... Nur leider wird dabei irgendwie das erste Zeichen jeder Section verschluckt...
Hier mal eine Portion Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.FormCreate(Sender: TObject);
var strings: TStringList;
begin
strings := TStringList.Create;
newestQuote := 0;
ini := TIniFile.Create('./quotes.ini');
if ini.ValueExists('Basic','Count') then
Label2.Caption := 'Gespeicherte Zitate: '+IntToStr(ini.ReadInteger('Basic','Count',0))
else
begin
ini.WriteInteger('Basic','Count',0);
ini.WriteString('Basic','LastUpdate',FormatDateTime('dd-mm-yyy hh:nn',Now));
end;
ini.ReadSections(strings);
ShowMessage(strings.ValueFromIndex[strings.Count-1]);
Memo1.Lines.Add('Initialisierung abgeschlossen...');
end; |
Aus ShowMessage kommt bei z.B. "Basic" nur "asic"...
Kann mir jemand sagen, was ich falsch mache?
Danke,
Wolle
