Mit Nullen auffüllen

[NiLS-Da-BuBi]

Ich habe einen String der in eine Datenbank geschrieben wird. So nun ist der Wert 8 stellen lang. Soll vom Benutzer eingegeben ungefähr so: 598 - gespeichert werden soll er dann aber so: 00000598 - Wenn ich ein Nummerisches Feld in der Datenbank nehme geht es nicht da die vorgehenden nullen weggeschnitten werden - nehme ich ein CHAR feld kann ich es speichern wenn der Benutzer aber auch die vorhergegangenen Nullen eingibt. So ich dachte da nun an eine Funktion die bei dem OnExit Ereigniss die länge des eingegebenen Strings prüft und die vorhergehenen nullen auffüllt... aber wie? Bestimmt hat soetwas ja schon mal wer gemacht. Wär für ein wenig (oder auch viel) hilfe dankbar.

Danke :)

[sakura]

Mal so kurz

Delphi-Quellcode:

while Length(aString) < 8 do
  aString := '0' + aString;

[NiLS-Da-BuBi]

Es kann so einfach sein... Danke.

[sakura]

Zitat:

Zitat von NiLS-Da-BuBi

Es kann so einfach sein... Danke.

Es ist so einfach :lol:

[NiLS-Da-BuBi]

Na es geht aber auch komplizierter, oder :)

[sakura]

Logisch

Delphi-Quellcode:

var
  I, Miss: Integer;
  Nullen: string;
begin
  Miss := 8 - Length(aString);
  for I := 1 to Miss do
    Nullen := Format('%s0', [Nullen]);
  aString := Format('%s%s', [Nullen, aString]);
end;

Wenns gefällt, darfst Du auch diese Lösung nutzen. Oder lieber in Assembler ?

[Luckie]

Dann das ganze in eine DLL packen, die DLL in die Ressource stecken und zur Laufzeit extrahieren. :mrgreen:

[NiLS-Da-BuBi]

Ja so ungefähr hätte ich mir das vorgestellt... :roll:

[Christian Seehase]

Moin Zusammen,

es geht aber auch einfacher (und resourcenschonender als die erste Variante): ;-)

Delphi-Quellcode:

aString := StringOfChar('0',8-Length(aString))+aString;

[sakura]

Zitat:

Zitat von Christian Seehase

und resourcenschonender

Für ASP hatte ich die entsprechende Lösung parat, leider wusste ich nicht mehr wie die Funktion (StringOfChar) in Delphi hiess.