Boolean.ToString

[Delbor]

Hi zusammen

Eigentlich wollte ich mir nur mal eine kleinen Spickzettel schreiben und hab in der prozedur AddNewNode einige Listeneinträge meiner Reportliste hinzugefügt:

Delphi-Quellcode:

  FReportlist.Add('procedure TOpenFileFrame.AddNewNode');
  FReportlist.Add('Node.Text := ' + Node.Text);
  FReportlist.Add('LRealName :=  ' + aRealName);
  FReportlist.Add('aCaption :=  ' + aCaption);
  FReportlist.Add('LIsdirectory :=  '+  aIsdirectory.ToString);
  FReportlist.Add('-***************************************-');

Das sieht dann so aus:

Zitat:

procedure TOpenFileFrame.FileSearcher1MatchFound
----------------
procedure TOpenFileFrame.AddNewNode
LRealName := P:\autorun.inf
LIsdirectory := 0
-------------------
procedure TOpenFileFrame.FileSearcher1MatchFound
----------------
procedure TOpenFileFrame.AddNewNode
LRealName := P:\Bahnforum
LIsdirectory := -1
-------------------
procedure TOpenFileFrame.FileSearcher1MatchFound
----------------
procedure TOpenFileFrame.AddNewNode
LRealName := P:\Cache.mxc3
LIsdirectory := 0
-------------------
procedure TOpenFileFrame.FileSearcher1MatchFound
----------------
procedure TOpenFileFrame.AddNewNode
LRealName := P:\Delbor Word - HTML
LIsdirectory := -1

Bislang ging ich immer davon aus, dass in Delphi False := 0; und True := <> -0 glit, was nichts anderes bedeute, dass True auch schon mal den Wert 23 haben kann. Die obigen Zeilen zeigen aber, dass

• aIsdirectory.ToString für True -1 und
• aIsdirectory.ToString für False 0

zurückgibt. Das hier hat auch nicht besonders viel zur Klärung beigetragen. Was gilt jetzt? Oder kann es sein, dass der wiederholte Wert für True einfach Zufall ist?

Gruss
Delbor

[Papaschlumpf73]

Kannst du uns zeigen, wie du die Variable aIsdirectory deklariert hast und mit welcher Funktion du anschließend einen Wert zugewiesen hast?

[Uwe Raabe]

Die Funktion ToString ruft intern BoolToStr auf und dort steht nun mal:

Delphi-Quellcode:

const
  cSimpleBoolStrs: array [boolean] of String = ('0', '-1');

[DieDolly]

Dass True -1 zurückgibt und False 0 ist schon richtig.

[Der schöne Günther]

Deswegen mache ich immer myBoolean.ToInteger().ToString() 😎

[Delbor]

Hi zusammen
Das ist der Ursprung in einer Hilfsklasse von TFilesearcher:

Delphi-Quellcode:

class function TSearchRecAnalyzer.IsDirectory(const
  SearchRec: TSearchRec): Boolean;
begin
  Result := TSearchRecAnalyzer.ContainsAttributes(SearchRec, faDirectory);
end;

Diese Prozedure wird aufgerufen, wenn TFileSearcher eine Datei oder einen Ordner gefunden hat:

Delphi-Quellcode:

procedure TOpenFileFrame.FileSearcher1MatchFound(Sender: TObject;
  const Path: string; const FileInfo: TSearchRec);
  var Complettpath, J: String;
begin
  if Assigned(FCurrentNode) then
  begin
    Complettpath := IncludeTrailingPathDelimiter(Path) +  FileInfo.Name;
    AddNewNode(FCurrentNode, FileInfo.Name, Complettpath,TSearchRecAnalyzer.IsDirectory(FileInfo));// <<<=
    FReportlist.Add('-------------------');
    FReportlist.Add('procedure TOpenFileFrame.FileSearcher1MatchFound');
    FReportlist.Add('----------------');
  end;
end;

in der Prozedur AddNewNode werden dem erzeugten Knoten schliesslich die Werte der Datei übergeben, die er repräsentiern soll:

Delphi-Quellcode:

  New(NameRec);
  NameRec^.RealName := aRealName;
  NameRec^.Caption := aCaption;
  NameRec^.IsDirectory := aIsdirectory;
  NameRec^.IsDB := LIsDB;
  Node.Data := NameRec;

Gruss
Delbor

[Delbor]

Hi Uwe Raabe
Danke für die Antwort!

Zitat von Uwe Raabe:

Die Funktion ToString ruft intern BoolToStr auf und dort steht nun mal:

Delphi-Quellcode:

const
  cSimpleBoolStrs: array [boolean] of String = ('0', '-1');

Das klärt alles!

Gruss
Delbor