Überprüfen ob TStringlist leer ist

[Nuclear-Ping]

Zitat von Bastler:

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;  // << x wird nur erzeugt, wenn z TRUE ist
  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);         // << Und was machst du dann hier, wenn z FALSE ist? ;)
r.Free;
Result:=x

[edit]
Arg, Deddy du schnellschreiber.
Kam keine rote Box.
[/edit]