TStringList bleibt leer nach Find, nur warum? *gelöst*

[KodeZwerg]

Hallo liebe DP-Gemeinde, ich habe in meiner Logik irgendwie etwas falsch und komme einfach nicht weiter.
Ich möchte eine StringList mit Strings füllen die noch nicht enthalten sind und bei neuen wird der hinten rangehangen.

Hier ist der Code (fixed!):

Delphi-Quellcode:

// global
var
  SList: TStringList;

...

constructor TXXX.Create;
begin
  inherited Create;
  SList := TStringList.Create;
end;

destructor TXXX.Destroy;
begin
  SList.Free;
  inherited Destroy;
end;

function AddSList(_HWND: HWND): Boolean;
var
  i: Integer;
  tmp: String;
begin
  Result := False;
  tmp := '';
  i := 0;
  SetLength(tmp, 64);
  SetLength(tmp, GetClassName(_HWnd, PWideChar(tmp), 64));
  SList.Sort;
  if (SList.Find(String(IntToStr(_HWnd)+' <> '+tmp), i) = False) then
   begin
     i := SList.Add(String(IntToStr(_HWnd)+' <> '+tmp));
     Result := True;
   end;
end;

function TXXX.Aufruf(_HWnd: HWND): String;
begin
  Result := '';
  if ((AddSList(_HWnd) = True) and (SList.Count > 0)) then // hier war mein Fehler, Count und HWnd waren vertauscht, Danke @ sahimba
   begin
     Result := SList.Strings[SList.Count-1];
     Memo1.Lines.Add(Result);
   end;
end;

[sahimba]

(SList.Count > 0)
ergibt natürlich immer False... ist ja noch nix in der Liste drin.

[KodeZwerg]

Jupp! Ich wusste zwar was ich wollte nur die Reihenfolge war falsch.
if ((AddSList(_HWnd) = True) and (SList.Count > 0)) then Danke!

[Schokohase]

So nebenbei bemerkt:

Warum (AddSList(_HWnd) = True) aber dann nur (SList.Count > 0) ?

Entweder

Delphi-Quellcode:

if ((AddSList(_HWnd) = True) and ((SList.Count > 0) = True))
then

(ich prüfe einen Boolean Wert immer nochmal auf True um wirklich wirklich sicher sicher zu zu sein sein)
oder

Delphi-Quellcode:

if (AddSList(_HWnd) and (SList.Count > 0))
then

(ein Boolean ist genug)

PS:

Eine Frage "Warum funktioniert mein Code nicht" wird für die Zukunft sinnlos, wenn man den fehlerhaften Code in der Ursprungsfrage korrigiert.

[EWeiss]

if ((AddSList(_HWnd) = True) and ((SList.Count > 0) = True))

Und ich prüfe nie auf True..

if ((AddSList(_HWnd)) and ((SList.Count > 0)))

ist vollkommen ausreichend.

gruss

[Hobbycoder]

@KodeZwerg: Zieh dir mal dein Thread rein: https://www.delphipraxis.net/184484-...alse-part.html

[p80286]

Lies gleich https://www.delphipraxis.net/1295933-post43.html
Da steht die Essenz!
Gruß
K-H

[KodeZwerg]

Zitat von Schokohase:

Eine Frage "Warum funktioniert mein Code nicht" wird für die Zukunft sinnlos, wenn man den fehlerhaften Code in der Ursprungsfrage korrigiert.

Zitat:

if ((AddSList(_HWnd) = True) and (SList.Count > 0)) then // hier war mein Fehler, Count und HWnd waren vertauscht, Danke @ sahimba

Versteh ich nicht, steht doch da was ich falsch hatte? Für die Akten, es war

Zitat:

if ((SList.Count > 0) and (AddSList(_HWnd) = True)) then

Was halt nicht klappen konnte da (SList.Count > 0) an erster Stelle immer 0 ist.

Danke für Boolean Hinweise.