AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Der gute alte format Befehl

Ein Thema von ATS3788 · begonnen am 29. Dez 2010 · letzter Beitrag vom 30. Dez 2010
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#1

Der gute alte format Befehl

  Alt 29. Dez 2010, 17:28
Ich habe z.B. einen integer, 1..59

bekomme ich es mit Format irgendwie gebacken

das anstatt 1,2... es 01,02 ...09,10,11 ausgegeben wird.

Doof zu formulieren diese Frage, Entschuldigt.
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.034 Beiträge
 
Delphi 12 Athens
 
#2

AW: Der gute alte format Befehl

  Alt 29. Dez 2010, 17:33
result := Format('%.2d', [Value]);
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#3

AW: Der gute alte format Befehl

  Alt 29. Dez 2010, 18:38
Ja habe den Punkt vergessen
Danke
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#4

AW: Der gute alte format Befehl

  Alt 29. Dez 2010, 21:40
oder

Delphi-Quellcode:
function TwoDigits(const AValue: Integer; const DefDig: Char = '0'): String;
begin
  if AValue < 100 then
  begin
    Result := IntToStr( AValue );
    if AValue div 10 > 0 then
      Result := DefDig + Result;
  end else // EDIT - Frage diesbezüglich - Siehe unten
    Result := '';
end;
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG

Geändert von Aphton (29. Dez 2010 um 21:43 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

AW: Der gute alte format Befehl

  Alt 29. Dez 2010, 21:42
Der Code sollte dir eine Warnung vom Compiler ausgeben, weil Result undefiniert ist, wenn AValue größer 100 ist.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#6

AW: Der gute alte format Befehl

  Alt 29. Dez 2010, 21:44
Hmm, ist es hier nicht sinnlos, da der Resultstring = '' ist?
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Der gute alte format Befehl

  Alt 30. Dez 2010, 06:50
Nein, denn auch ein Leerstring ist ein Wert
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.182 Beiträge
 
Delphi 12 Athens
 
#8

AW: Der gute alte format Befehl

  Alt 30. Dez 2010, 07:44
Der der String on Delphi automatisch initialisiert wird, kommt hier wohl keine Fehlermeldung.

Obwohl, es bei dem String als Result ein kleines Problem gibt, wodurch eine solche Meldung dennoch gut wäre

Ergo, auch das Result sollte man immer initialisieren, selbst wenn der Compiler nicht meckert.

Delphi-Quellcode:
function Add: String;
begin
  Result := Result + '*';
end;

var s: String;

for i := 1 to 10 do
  s := Add;
ShowMessage(s);
Code:
**********
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.415 Beiträge
 
Delphi XE5 Professional
 
#9

AW: Der gute alte format Befehl

  Alt 30. Dez 2010, 09:00
Ich glaube das ATS3788 eine andere Frage hatte.

"Ich habe eine Zahlenfolge von 1 bis 59"
Wie bekomme ich diese Ausgegeben in dem Format:
01,02,03...57,58,59

Als liegt Uwe schon mal richtig:
Zitat von Uwe:
result := Format('%.2d', [Value]);
Gesamt:
Delphi-Quellcode:
var
  i: integer;
  s: string;
begin
  s:='';
  for i:=1 to 59 do
  begin
    if i>1 then
      s:=s+',';
    s:=s+Format('%.2d', [i]);
  end;
1 bis 59 sieht stark nach Zeit aus.
Wenn du mit Zeit arbeitest hat Delphi noch unterstützende Funktionen im Bauch. Dann melde dich hier noch einmal.
Coding BOTT - Video Tutorials rund um das Programmieren - https://www.youtube.com/@codingbott

Geändert von generic (30. Dez 2010 um 09:02 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#10

AW: Der gute alte format Befehl

  Alt 30. Dez 2010, 09:01
@himi: Huch, das war mir jetzt auch neu.
Ich bin zwar nie auf dieses Phänomen gestoßen, aber interessant, dass Result initialisiert wird und beim erneuten Aufruf der Funktion den vorigen Wert behält.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz