If-Abfrage wird ignoriert (D7)

[Hobbycoder]

Hi,

ich habe gerade ein etwas merkwürdiges Problem. In einem alten D7-Projekt muss ich ein paar Erweiterungen machen.

Delphi-Quellcode:

procedure TAuslastungList.SetZT(wer: string; ZT, zegeplant: Integer);
var
  ma: TAuslastungMA;
begin
  if wer<>'' then
  begin
    ma:=self.ItemByWer(wer);
    if not Assigned(ma) then
    begin
      ma:=TAuslastungMA.Create;
      ma.Wer:=wer;
      self.Add(ma);
    end;
    .
    .
    .
  end;
end;

Nach meinem Verständnis sollte also der Block nur ausgeführt werden, wenn in Wer ein string vorhanden ist.
Komischerweise wird aber der Block trotzdem ausgeführt. Ich kann's mir nicht erklären.
Eigentlich was ganz banales, aber ich steh irgendwie auf dem Schlauch.

Hab mal ein Screenshot angehängt. Darin kann man sehen, was der debugger auswirft.

[hoika]

Hallo,
mach mal ein

Delphi-Quellcode:

Length(wer)

und vor dem Create eine MessageBox.

[Uwe Raabe]

Sieht aus als enthält der String wer ein Leerzeichen.

[Hobbycoder]

Oh Mann, das ist schon fast peinlich ;-)
Danke Uwe.

[mkinzler]

Delphi-Quellcode:

if Trim(wer<>'') then

und Leerzeichen werden zum Vergleichen entfernt.

[Delphi.Narium]

Wenn aber das Leerzeichen erlaubt ist und nur ein Leerstring die Bedingung erfüllt?

Delphi-Quellcode:

if Length(wer) = 0 then

[Neutral General]

Zitat:

Zitat von mkinzler (Beitrag 1411568)

Delphi-Quellcode:

if Trim(wer<>'') then

und Leerzeichen werden zum Vergleichen entfernt.

Inkompatible Typen String und Boolean ;) :P

[KodeZwerg]

Delphi-Quellcode:

if Length(Trim(wer)) > 0 then

Sollte funktionieren.

[Delphi.Narium]

Zitat:

Zitat von KodeZwerg (Beitrag 1411583)

Delphi-Quellcode:

if Length(Trim(wer)) > 0 then

Sollte funktionieren.

Aber nur, wenn führende und folgende Leerzeichen zu ignorieren sind, bzw. ein nur aus Leerzeichen bestehender String mit einem Leerstring gleichzusetzen ist.

[KodeZwerg]

Delphi-Quellcode:

if ((wer<>'')and(wer<>' ')) then

Sollte auch funktionieren mit Delphi.Nariums Wunsch nach Leerstellen.