Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#9

Re: MJFunctions - kleine Funktionssammlung

  Alt 11. Mai 2007, 10:07
Gibt es eigentlich die Funktion BoolanToString? Ich habe mir mal eine erweiterte Variante programmiert:
Delphi-Quellcode:
function BoolanToString(ABool : Boolean; ATrue, AFalse : string) : string
begin
  case ABool of
    true : Result := ATrue;
    false : Result := AFalse;
  end;
end;
Beispiel:
Showmessage(BoolanToString(saved, 'Gespeichert', 'Nicht gespeichert'))
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat