Integer --> null vor zahl?

[100nF]

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:

showmessage(inttostr(001))

resultet: 1 anstatt 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

[supermuckl]

das ist normal. benutze entweder string und sortier das, oder wie auch immer (eigentlich sollte das doch richtig sortiert werden ?! )

[Daniel G]

Format ist das, was du suchst...

[100nF]

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:

(eigentlich sollte das doch richtig sortiert werden ?! )

die datei, die kopiert werden soll, wird entweder auf eine CD (mp3-format) oder auf einen mp3-player kopiert. da werden die tracks nach dem alphabet abgespielt, jedoch sollten sie so abgespielt werden, wie sie in der listview2 stehen.

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

[supermuckl]

Zitat:

EDIT: geht doch, hatte ein blackout! danke!!

na also *g*

-> 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

[flossinger]

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:

x:=2;
memo1.lines.add(copy(inttostr(1000+x),2,3));

Ich hoffe, dieses bewusst einfach gehaltene Beispiel beflügelt deine Phantasie beim Anpassen an deine Bedürfnisse.

der Flossinger

[Treffnix]

Zitat:

Zitat von flossinger

Ich hoffe, dieses bewusst einfach gehaltene Beispiel beflügelt deine Phantasie beim Anpassen an deine Bedürfnisse.

Schön gesagt :mrgreen:

aber das von Daniel G vorgeschlagene Format() erledigt den Job auch und ist dazu flexibler. Ob auch schneller wage ich gerade nicht zu behaupten. ;)

[flossinger]

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

[Luckie]

Und dein Code wird in jeder Sprache auch anders aussehen. ;)

[flossinger]

ja, ist mir auch schon aufgefallen. Bemerkenswert, nicht?

Flossinger

[marabu]

Hallo Leute,

Zitat:

Zitat von Daniel G

Format ist das, was du suchst...

warum drum herum zeigen? Kann denn keiner den format string fs angeben, der im folgenden Beispiel "001" ausgibt?

Delphi-Quellcode:

var
  fs: string;
begin
  fs := '"%d"';  // hier korrigieren
  ShowMessage(Format(fs, [1]));
end;

Grüße vom marabu

[Flocke]

Delphi-Quellcode:

var
  fs: string;
begin
  fs := '"%3.3d"';  // hier korrigieren
  ShowMessage(Format(fs, [1]));
end;

[marabu]

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:

function ZeroPad(s: string; size: word): string;
begin
  if Length(s) < size
    then Result := StringOfChar('0', size - Length(s)) + s
    else Result := s;
end;

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.

Delphi-Quellcode:

function ZeroFmt(n: cardinal; size: word): string;
begin
  Result := Format(Format('%%%d.%dd', [size, size]), [n]);
end;

Freundliche Grüße vom marabu

[LoRd-MuldeR]

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';

[Daniel G]

Zitat:

Zitat von marabu

Kann denn keiner den format string fs angeben, der im folgenden Beispiel "001" ausgibt?
Grüße vom marabu

Doch, kann ich, tue ich aber nicht. Schließlich steht alles in der Hilfe. Ich will damit lediglich Eigeninitiative fördern...

[Kroko1999]

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;

[Jelly]

Zitat:

Zitat von Daniel G

Doch, kann ich, tue ich aber nicht. Schließlich steht alles in der Hilfe. Ich will damit lediglich Eigeninitiative fördern...

Dann kannst Du Dir deine so *konstruktiven* Beiträge auch sparen...

Mit der Format Funktion geht da jedenfalls so:

Delphi-Quellcode:

S := Format ('%.3d',[DeineZahl]) ;

liefert dir einen String S mit 3 Stellen, mit führenden Nullen.

[tigerman33]

Zitat:

Dann kannst Du Dir deine so *konstruktiven* Beiträge auch sparen...

Sinn der Sache hier ist ja nicht, die Lösung auf dem silbernen Tablett serviert zu bekommen, sondern Denkanstöße zu erhalten. Das lässt sich übrigens schon aus dem Verhaltenskodex rauslesen. :roll:

[Jelly]

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.

[DGL-luke]

kleine Anmerkung: In der D2005-Hilfe sind solche Sachen nicht drin. Zumindest nicht bei der PE.

[Khabarakh]

:gruebel: In der D2005-Hilfe sind schon einige Lücken, aber "Format Routine" ist drin:

Zitat:

Format Routine

Mit Format-Strings wird das Format für allgemeine Formatierungsroutinen angegeben.

Unit
SysUtils

Syntax


[Delphi] function Format(const Format: string, var Args: array of TVarRec): string;



[Delphi] function Format(const Format: string, var Args: array of TVarRec, var FormatSettings: TFormatSettings): string;


Beschreibung
Format-Strings, die an die Formatierungsroutinen für Strings übergeben werden, können zwei Arten von Objekten enthalten: literale Zeichen und Formatbezeichner. Literale Zeichen werden wörtlich in den resultierenden String kopiert. Formatbezeichner rufen Argumente aus der Argumentliste ab und weisen ihnen ein Format zu.

Formatbezeichner werden in der folgenden Form angegeben:

"%" [index ":"] ["-"] [width] ["." prec] type

[...]

Ich kann mir eigentlich nicht vorstellen, dass sich die Hilfe in der Pro und PE unterscheidet (oder etwa durch ein Update :gruebel: ² ?).

[DGL-luke]

wenn ich zuhause bin, schau ich nochmal nach ;)

[Sharky]

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:

Format

schreibt.

Oder man Antwortet in der Form

Zitat:

Delphi-Quellcode:

S := Format ('%.3d',[DeineZahl])

oder man postet eine eigene Funktion

Zitat:

Delphi-Quellcode:

function ZeroPad(s: string; size: word): string; 
begin 
  if Length(s) < size 
    then Result := StringOfChar('0', size - Length(s)) + s 
    else Result := s; 
end;

Alle diese Antworten sind richtig und legitiem :!:

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:

[DGL-luke]

Zu meiner Schande muss ich gestehen, dass die Onlinehilfe hier bei D2005 PE voll und ganz Auskunft gibt. :duck: