Ini Dateien - ReadSections

[Destroyer446]

Ich habe mir eine Funktion gemacht um ´Datums´ aus einer ini zu lesen.
Die ´Datums´ sind die Sections also die [Section] im Format [01.01.2011].
Ich will alle ´Datums´ in eine TStringList laden.
Der gibt mir hier aber ein ´AccesViolation´ Error.
Was ust da Falsch?

Delphi-Quellcode:

function TZeit.LadeDatums: TStringList;
begin
 Ini.ReadSections(Result);
end;

Danke!

[Luckie]

Existiert das Ini-Objekt? Existiert das StringList-Objekt? Das sind alles Fragen, die man schon vorher mit dem Debugger überprüfen kann.

[himitsu]

Zitat:

Existiert das StringList-Objekt?

Bei der Ini weiß man es nicht, aber die TStringList existiert garantiert nicht.
Der Objektzeiger (Result) zeigt nur zufällig sonstwo hin, da er nichtmal initialisiert ist, was der Compiler eigentlich auch bemängeln sollte.

[Bjoerk]

ReadSections gibt TStrings zurück.

Delphi-Quellcode:

function LadeDatum: TStrings;
begin
  Ini.ReadSections(Result);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  Ini:= TIniFile.Create( .. );
  SL:= TStringList.Create;

  SL.AddStrings(LadeDatum);

  ... 
 
  SL.Free;
  ini.Free;
end;

[himitsu]

Zitat von Bjoerk:

ReadSections gibt TStrings zurück.

Nein, gibt es nicht.
Es befüllt eine vorher "existierende" Stringliste.

[schlecki]

Zitat von Destroyer446:

Delphi-Quellcode:

function TZeit.LadeDatums: TStringList;
begin
 Ini.ReadSections(Result);
end;

Man sollte auf Funktionen verzichten, die ein Objekt erzeugen und zurückliefern. Es ist meist nicht klar, wer das Objekt dann wieder abräumt. Generell sollte man darauf achten, wer ein Objekt erzeugt, der sollte es auch wieder freigeben.

Delphi-Quellcode:

procedure TZeit.LadeDaten(const List: TStrings);
begin
  Ini.ReadSections(List);
end;

und dann irgendwo

Delphi-Quellcode:

myList := TStringList.Create;
try
  zeit.LadeDaten(myList);
  tuWasMitDaten(myList);
finally
  myList.Free;
end;

[Bjoerk]

Zitat von himitsu:

Zitat von Bjoerk:

ReadSections gibt TStrings zurück.

Nein, gibt es nicht.
Es befüllt eine vorher "existierende" Stringliste.

So ist es.

Delphi-Quellcode:

procedure TMemIniFile.ReadSections(Strings: TStrings);
procedure TCustomIniFile.ReadSections(const Section: string; Strings: TStrings);
procedure TIniFile.ReadSections(Strings: TStrings);