Überprüfen ob TStringlist leer ist

[Bastler]

Hallo;

Wie kann ich überprüfen, ob eine StringList leer ist ?

Ich suche etwas If-Taugliches, also so nach dem Motto: Wenn Liste=leer dann ... sonst...

Achja und ich möchte weder Count noch Capacity benutzen... was das ganze wohl etwas schwiriger macht...

Danke im Voraus für alle Antworten!

[Tormentor32]

EDIT:
Sorry

[mkinzler]

Zitat:

Achja und ich möchte weder Count noch Capacity benutzen

Und warum den nicht, wäre doch die sauberste Methode?

[leddl]

Zitat von Bastler:

Achja und ich möchte weder Count noch Capacity benutzen...

Und wieso, wenn man fragen darf? Count ist nunmal der Standard für solche Sachen...

[SirThornberry]

warum nicht Count? Dann kannst du es nicht testen.

Spontan hätte ich zwar gesagt das du mit
if (StringList.Text = '') then testen kannst aber ich bin mir nicht ganz sicher ob eventuell doch generell #13#10 hinten angehangen wird.

[Edit]
So eben getestet - es geht doch das man ".Text" auf '' prüft
[/Edit]

[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

[SirThornberry]

dann machst du was falsch, bei mir klappt es:

Delphi-Quellcode:

var
  stringliste: TStringList;
begin
  stringliste := TStringList.Create();
  if (stringliste.Text = '') then
    caption := 'leer';
  stringliste.Free;

[Bastler]

Danke
Klappt jetzt , ich vergas den Text zu vergleichen und habe deshalb zuerst nur x='' geschrieben udn nicht x.text='' ...

[DeddyH]

Mit fällt auf, dass x nur dann erzeugt wird, wenn z true ist. Weiter unten wird aber nicht geprüft, ob x überhaupt erzeugt wurde.

[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]