Ü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 :wall:

[mkinzler]

Zitat:

Achja und ich möchte weder Count noch Capacity benutzen

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

[leddl]

Zitat:

Zitat von Bastler

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

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

[SirThornberry]

warum nicht Count? Dann kannst du es nicht testen.

Spontan hätte ich zwar gesagt das du mit

Delphi-Quellcode:

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. :wink:

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 :thumb:
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:

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. :mrgreen:
Kam keine rote Box.
[/edit]

[Ralf Kaiser]

Zitat:

Zitat von Bastler

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.

Was bedeutet denn "er meckert"? Wie lautet die genaue Fehlermeldung und wie äussert sich das "möchte er nicht übergeben"?

Ich vermute nämlich, dass deine StringList "x" nicht leer ist sondern garnicht erzeugt wird (passier wenn den "z" false ist da die Stringlist innerhalb der Abfrage erst erzeugt und hinterher ohne Prüfung benutzt wird.

Wenn du uns sagts, welcher Fehler angezeigt wird dann ist eine Diagnose wesentlich einfacher.

Ralf

EDIT: kein roter Kasten (anderen war das mit dem "z" auch schon aufgefallen...)

[Hawkeye219]

Zitat:

Zitat von DeddyH

Mit fällt auf, dass x nur dann erzeugt wird, wenn z true ist.

...und z durchaus einen Zufallswert enthalten kann.

Gruß Hawkeye

[Nuclear-Ping]

Ja, ich glaube das sind auch die Gründe, warum angeblich ".Count" nicht funktioniert. ;)

[DeddyH]

Zitat:

Zitat von Hawkeye219

Zitat:

Zitat von DeddyH

Mit fällt auf, dass x nur dann erzeugt wird, wenn z true ist.

...und z durchaus einen Zufallswert enthalten kann.

Stimmt. Statt

Delphi-Quellcode:

if ini.SectionExists(leftstr(datetostr(datum),2)) then
  z:=true;

sollte man besser schreiben

Delphi-Quellcode:

z := ini.SectionExists(leftstr(datetostr(datum),2));