![]() |
Integer --> null vor zahl?
hallo zusammen,
...ich hoffe mal dass das thema in der richtigen sparte ist... ich habe gerade entdeckt, dass bei integer-zahlen die erste stelle keine null sein kann:
Delphi-Quellcode:
resultet: 1 anstatt 001
showmessage(inttostr(001))
ich brauche diese null vor den zahlen, um dateien richtig sortieren zu können, etwa so: 001Da.tei 002EineDa.tei 003AndereDa.tei ... 155DieseDa.tei 156JeneDa.tei weiss jemand wie ich soetwas erreichen kann? gibts dafür schon eine function? ich danke für antworten. gruss urbanbruhin |
Re: Integer --> null vor zahl?
das ist normal. benutze entweder string und sortier das, oder wie auch immer (eigentlich sollte das doch richtig sortiert werden ?! )
|
Re: Integer --> null vor zahl?
![]() |
Re: Integer --> null vor zahl?
hallo supermuckl,
danke für deine antwort :angel: also string geht nicht gut, siehe code:
Delphi-Quellcode:
for i:=0 to listview2.Items.Count-1 do
begin if listview2.Items.Item[i].subitems.Count > 1 then filename := listview2.Items.Item[i].SubItems[1]; // pfad zu einer datei wird ermittelt if fileexists(filename) then copyfile(pchar(filename), pchar(savepath+inttostr(i)+extractfilename(filename)), false); end; Zitat:
der code oben funktioniert schon, jedoch stimmt dann die reihenfolge nicht ganz: 1blabla 11blabla 12blabla ... 2blabla 21blabla EDIT: geht doch, hatte ein blackout! danke!! gruss urbanbruhin |
Re: Integer --> null vor zahl?
Zitat:
-> letztendlich ists ja egal ob 01 oder 1 -> beides ist kleiner als 2 (wenn man es als integer betrachtet) bei string sortierung wäre dann wirklich 112 21 22 die reihenfolge ein wenig verdreht, da ja die zeichen einzelnt angesehen werden und nicht als zusammenhängende zahl - die dann größer wäre |
Re: Integer --> null vor zahl?
Hallo urban,
so etwas braucht man in der Tat oft für vernünftige Dateinamen, die sich richtig sortieren lassen. Es soll ja 100 nach 002 kommen, dummerweise kommt ja 100 vor 2 bei einer alphabetischen Sortierung. Ein bewährter Weg dazu ist der, dass du zuerst eine grosse Konstante zu den Zahlen addierst, und nach der Umwandlung in einen String, diesen links beschneidest. Das folgende Beispiel funktioniert für dreistellige Zahlen. Zitat:
der Flossinger |
Re: Integer --> null vor zahl?
Zitat:
aber das von Daniel G vorgeschlagene Format() erledigt den Job auch und ist dazu flexibler. Ob auch schneller wage ich gerade nicht zu behaupten. ;) |
Re: Integer --> null vor zahl?
ja sicher treffnix, hab auch bewusst ein Weg geschrieben.
Auf alle Feälle klopf ich sowas am schnellsten rein, weil ich nicht über Formatstrings, die in jeder Sprache anders aussehen, nachdenken muss. - also aus purer Faulheit verwende ich so etwas. der Flossinger |
Re: Integer --> null vor zahl?
Und dein Code wird in jeder Sprache auch anders aussehen. ;)
|
Re: Integer --> null vor zahl?
ja, ist mir auch schon aufgefallen. Bemerkenswert, nicht?
Flossinger |
Re: Integer --> null vor zahl?
Hallo Leute,
Zitat:
Delphi-Quellcode:
Grüße vom marabu
var
fs: string; begin fs := '"%d"'; // hier korrigieren ShowMessage(Format(fs, [1])); end; |
Re: Integer --> null vor zahl?
Delphi-Quellcode:
var
fs: string; begin fs := '"%3.3d"'; // hier korrigieren ShowMessage(Format(fs, [1])); end; |
Re: Integer --> null vor zahl?
Danke Volker,
um wieviel wertvoller wird doch ein thread, wenn nicht einfach nur auf die Online-Hilfe verwiesen wird... In meiner Code Library benötige ich Funktionen, die allgemein verwendbar sind:
Delphi-Quellcode:
Wenn ich meiner Funktion aus TP Zeiten die angepasste Version mit Format() gegenüberstelle, dann liefern 1 Mio Durchläufe das Verhältnis ZeroPad : ZeroFmt = 10 : 14. Nur zur Information.
function ZeroPad(s: string; size: word): string;
begin if Length(s) < size then Result := StringOfChar('0', size - Length(s)) + s else Result := s; end;
Delphi-Quellcode:
Freundliche Grüße vom marabu
function ZeroFmt(n: cardinal; size: word): string;
begin Result := Format(Format('%%%d.%dd', [size, size]), [n]); end; |
Re: Integer --> null vor zahl?
Ich würde mir für diesen Zweck ne kleine Hilfs-Funktion basteln:
Delphi-Quellcode:
function MyIntToStr(Value:Integer; Digits:Integer):String;
begin Result := IntToStr(Value); while Length(Result) < Digits do Result := '0' + Result; end;
Delphi-Quellcode:
MyIntToStr(1, 4) = '0001';
|
Re: Integer --> null vor zahl?
Zitat:
|
Re: Integer --> null vor zahl?
ich benutzte für diesen Fall folgende Proc:
Delphi-Quellcode:
type
{== Range-Type ==} TBaseRange = 2..36; TDigitRange = 0..31; TGroupRange = 0..15; function ZifferToChar (Z: TZiffern): Char; begin case Z of 0..9: Result := Chr($30+Z); 10..36: Result := Chr($41-10+Z); else Result := '*'; end; end; function IntegerFormat (Value: Int64; // zu formatierende Int64-Wert ASign: Boolean; // soll die Zahl ein Vorzeichen besitzen ABasis: TBaseRange; // Zahlenbasis bis 2..36 ADigits: TDigitRange; // wieviel Stellen soll das Ergebnis haben ATPGroup: TGroupRange; // wieviel Teile sollen Gruppen haben (zBsp.Tausenderpunkt) ATPChar: Char): String; // wie sollen Gruppen getrennt werden var C: String[1]; OldMax, HMax, Max: Int64; begin Result := ''; if Value<0 then C := '-' else begin if ASign then C := '+' else C := ''; end; Value := Abs(Value); if Value<2 then Result := ZifferToChar(Value) else begin Max := 1; OldMax := Max; while Max<=Value do begin OldMax := Max; Max := Max*ABasis; end; Max := OldMax; if Max=0 then Result := Result+'0' else repeat HMax := Value div Max; Result := Result+ZifferToChar(HMax); Dec (Value,HMax*Max); Max := Max div ABasis; until Max=0; end; if ADigits>0 then while Length(Result)<ADigits do Result := '0'+Result; if (ATPChar>#0) and (ATPGroup>0) then begin HMax := ATPGroup-1; while HMax<Length(Result) do begin Insert (ATPChar,Result,Length(Result)-HMax); Inc (HMax,ATPGroup+1); end; if Result>'' then if Result[1]=ATPChar then Delete (Result,1,1); end; Result := C+Result; end; |
Re: Integer --> null vor zahl?
Zitat:
Mit der Format Funktion geht da jedenfalls so:
Delphi-Quellcode:
liefert dir einen String S mit 3 Stellen, mit führenden Nullen.
S := Format ('%.3d',[DeineZahl]) ;
|
Re: Integer --> null vor zahl?
Zitat:
|
Re: Integer --> null vor zahl?
Ach, Du meinst wie in der Schule :wall:
Also mal ehrlich. Es war ne klare, simple Frage, warum muss denn da um den Brei rumgeschwafelt werden, statt einfach eine Zeile Code zu posten. So steht das in keinem Kodex, sorry. Denn sonst darfst Du gar keinen Code mehr posten, sondern verweisst nur noch auf OH und andere Quellen. Ich geb Dir recht, wenn einer kommt, der keinen Bock hat was selbst zu machen, und hier im Forum ne Antwort sucht. Aber in diesem Fall war das nicht etwa eine "keine Bock Frage", sondern ein einzelnes, konkretes und kleines Problemchen. |
Re: Integer --> null vor zahl?
kleine Anmerkung: In der D2005-Hilfe sind solche Sachen nicht drin. Zumindest nicht bei der PE.
|
Re: Integer --> null vor zahl?
:gruebel: In der D2005-Hilfe sind schon einige Lücken, aber "Format Routine" ist drin:
Zitat:
|
Re: Integer --> null vor zahl?
wenn ich zuhause bin, schau ich nochmal nach ;)
|
Re: Integer --> null vor zahl?
Hai ihr lieben,
ich denke es gibt verschiedene Möglichkeiten eine Frage zu beantworten. Zum einen kann man auf die Onlinehilfe verweisen in dem man als Antwort zum Beispiel: Zitat:
Oder man Antwortet in der Form Zitat:
Zitat:
Ich könnte jetzt auch noch eine Funktion mit einer For-Do-Schleife posten welche das selbe Ergebniss liefern würde. Was ich aber in keinem Fall gut finde ist: Das gegenseitige Vorwerfen von "besseren oder schlechteren" Antworten. Ich persönlich freue mich wenn nicht nur auf die OH verwiesen wird sonder auch ein passendes Beispiel gezeigt wird. Aber dies bedeutet nicht das ich den entscheidenden Tipp mit dem Verweiss auf die OH nicht gut finde. Ganz allgemein ein Vorschlag von mir: Wenn eine Frage gestellt wird dann überlegt als erstes wie ihr das Problem in euren Pascal-Anfangsjahren gelöst habt. Dann versucht zu beurteilen wie weit der Fragesteller mit seinen Kenntnissen schon ist. Und aus diesen beiden Überlegungen formuliert ihr nun eine Antwort auf die Frage :-D Wenn wir alle das so machen dann haben sowolt "Anfänger" als auch "Fortgeschritene" weiterhin viel Spass in der DP :bounce1: |
Re: Integer --> null vor zahl?
Zu meiner Schande muss ich gestehen, dass die Onlinehilfe hier bei D2005 PE voll und ganz Auskunft gibt. :duck:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:05 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz