Überprüfen ob TStringlist leer ist

[Bastler]

Ehrlich gesagt, weil es nicht funktioniert, denn sonst hätte ich es schon gemacht.

Ich such mal eben den Code Schnipselraus, vllt. ist da ja auch noch n anderer Fehler...

@ SirThornberry: Da komtm die Meldung Inkompatible Typen, String und Stringlist... was ja auch stimmt.

// EDIT: Hier ist der Code:

Delphi-Quellcode:

function termine(datum:Tdate):TStringList;
var r,x:TStringlist;
    z:boolean;
    temp_ini:TIniFile;
begin
if ini.SectionExists(leftstr(datetostr(datum),2)) then
  z:=true;
if z then
  begin
  x:=Tstringlist.Create;
  ini.ReadSection(leftstr(datetostr(datum),2),x);
  end;
r:=Tstringlist.Create;
temp_ini:=Tinifile.Create(app_pfad+'täglich.ini');
if temp_ini.SectionExists('täglich') then
  begin
  temp_ini.ReadSection('täglich',r);
  end;
x.AddStrings(r);         //Das Problem schenit mir hier zu sein, wenn x nämlich leeer ist, addet er zwar angeblich r, 
                         //aber meckert nacher bei result:x , bzw möchte das dann nciht übergeben.
                         // (x wird anschließend einer Listbox zugewiesen)
r.Free;
Result:=x