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

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? if Length(wer) = 0 then

[Neutral General]

Zitat von mkinzler:

if Trim(wer<>'') then und Leerzeichen werden zum Vergleichen entfernt.

Inkompatible Typen String und Boolean

[KodeZwerg]

if Length(Trim(wer)) > 0 then
Sollte funktionieren.

[Delphi.Narium]

Zitat von KodeZwerg:

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]

if ((wer<>'')and(wer<>' ')) then
Sollte auch funktionieren mit Delphi.Nariums Wunsch nach Leerstellen.