Thema: Delphi Nummerierung

Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

Re: Nummerierung

  Alt 26. Aug 2006, 16:57
So ist's ein bisschen kürzer
Delphi-Quellcode:
function GetNumber(Position, Max: integer): string;
begin
  Result := Format('%.' + IntToStr(Length(IntToStr(Max))) + 'd', [Position]);
end;
// Roter Kasten - mal wieder zu spät
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat