AGB  ·  Datenschutz  ·  Impressum  







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

string in integer

Ein Thema von JWeis · begonnen am 26. Mai 2006 · letzter Beitrag vom 26. Mai 2006
Antwort Antwort
Benutzerbild von JWeis
JWeis

Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
 
Delphi 7 Professional
 
#1

string in integer

  Alt 26. Mai 2006, 13:03
hallo ich kenne die funktion
strtoint doch gibt es noch eine andere möglichkeit denn ich habe in einem String
"00000011" stehen und ich möchte das mit allen nullern in den integer kopieren.

bei strtoint kommt dann immer "11" raus.
währe nett wenn ihr helfen würdet.

danke
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

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

Re: string in integer

  Alt 26. Mai 2006, 13:11
Ein Integer ist eine Zahl, diese hat keine führende Nullen.
Markus Kinzler
  Mit Zitat antworten Zitat
TBx
(Administrator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.875 Beiträge
 
Delphi 12 Athens
 
#3

Re: string in integer

  Alt 26. Mai 2006, 13:16
Hallo!

Da wirst Du so auch nichts dran ändern können.

Ich gehe mal davon aus, daß Du diesen Integer dann irgendwo wieder anzeigen möchtest.
Bei einfacher Ausgabe wirst Du dafür sicherlich wieder in einen String wandeln müssen. In dieser Wandelung müßtest Du dann für die führenden Nullen sorgen.

Gruß

onlinekater
Thomas Breitkreuz
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#4

Re: string in integer

  Alt 26. Mai 2006, 13:22
Ohne Worte.

Delphi-Quellcode:
function ZeroPad(n: Cardinal; places: Byte): String;
begin
  Result := Format(Format('%%.%dd', [places]), [n]);
end;
Alternativ:

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;
Grüße vom marabu
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#5

Re: string in integer

  Alt 26. Mai 2006, 14:20
Noch einer:

Delphi-Quellcode:
function ZeroPad (n: Cardinal; places: Byte): String;
begin
  Result := Format('%.*d', [places, n]);
end;
Interessant ist in diesem Zusammenhang, daß man mit variablen Längenangaben Integerwerte in Delphi 6 nur auf maximal 16 Stellen mit Nullen füllen kann. In Delphi 2006 liegt die Obergrenze bei 16 Stellen (Integer, Cardinal) bzw. 32 Stellen (Int64).

Gruß Hawkeye
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#6

Re: string in integer

  Alt 26. Mai 2006, 14:58
Hawkeye, das gefällt mir sehr gut.

Ich sollte vielleicht ab und zu mal wieder in die Online-Hilfe von Delphi schauen.

Freundliche Grüße vom marabu
  Mit Zitat antworten Zitat
Benutzerbild von JWeis
JWeis

Registriert seit: 23. Aug 2005
Ort: Homburg
274 Beiträge
 
Delphi 7 Professional
 
#7

Re: string in integer

  Alt 26. Mai 2006, 15:05
ich habs geelöst

danke für die antworten

(ich bemerke immer wieder wie gut dieses Forum ist )
Johannes
Der Pfad der Gerechten ist zu beiden Seiten gesäumt mit Freveleien der Selbstsüchtigen und der Tyrannei böser Männer. Gesegnet sei der, der im Namen der Barmherzigkeit und des guten Willens die Schwachen durch das Tal der Dunkelheit geleitet.
  Mit Zitat antworten Zitat
Antwort Antwort


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 23:12 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