Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Überprüfen ob TStringlist leer ist (https://www.delphipraxis.net/96221-ueberpruefen-ob-tstringlist-leer-ist.html)

Ralf Kaiser 20. Jul 2007 10:57

Re: Überprüfen ob TStringlist leer ist
 
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 20. Jul 2007 10:58

Re: Überprüfen ob TStringlist leer ist
 
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 20. Jul 2007 10:59

Re: Überprüfen ob TStringlist leer ist
 
Ja, ich glaube das sind auch die Gründe, warum angeblich ".Count" nicht funktioniert. ;)

DeddyH 20. Jul 2007 11:01

Re: Überprüfen ob TStringlist leer ist
 
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));


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:14 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz