Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Pascal - IntToStr ?? (https://www.delphipraxis.net/6214-pascal-inttostr.html)

Lillebrohr 3. Jul 2003 17:55


Pascal - IntToStr ??
 
Guten Tag,

Ich habe 3 Zahlenwerte (12,15,18), die möchte ich jetzt zusammenfassen als String, so das nachher das rauskommt : 121518. Diese Zahl will ich dann noch weiter benutzen. Wie kann ich das machen ? In delphi ginge das ja mit inttostr(XX) und dann wieder strtoint.

Danke, Tschau

Daniel B 3. Jul 2003 18:04

Hallo,

und warum machst Du es nicht mit IntToStr();? Du musst doch nur vorher die Zahl durchgehen und die , rauslöschen.

Grüsse, Daniel :hi:

PS: Ab nach Delphi-Language, die Sparte Programmieren allgemein ist nur für andere Programmiersprachen gedacht!

Chewie 3. Jul 2003 18:06

Wenn dir der (geringe) Geeschwindigkeitsverlust nichts ausmacht, kannst du auch Formatstrings benutzen:

Delphi-Quellcode:
var
  s: String;
begin
  s := Format(%d%d%d,[12,15,18]);
end;
Oder halt doch so:

Delphi-Quellcode:
var
  s: String;
begin
  s := InttoStr(12) + InttoStr(15) + (InttoStr(18));
end;
Wenn du damit allerdings weiterrechnen willst, musst du es schon mit InttoStr() in einen Integerwert umwandeln.

Lillebrohr 3. Jul 2003 18:08

Guten Tag,

Hi Daniel,

sorry wegen der falschen Sparte. :oops:

Hmm das mit inttostr funktioniert bei mir nicht. (Turbo Pascal)

Wie meinst du das mit "Du musst doch nur vorher die Zahl durchgehen und die , rauslöschen." ?

Danke, tschau :freak:

Christian Seehase 3. Jul 2003 18:08

Moin Daniel, moin Chewie,

die Frage bezieht sich auf Pascal, nicht auf Delphi (siehe Überschrift) ;-)

Lillebrohr 3. Jul 2003 18:21

Guten Tag,

Chewie:

Wie gesagt inttostr funktioniert bei mir nicht. :cry:

Tschau

Duffy 3. Jul 2003 18:22

Hallo Lillebrohr,
schau Dir mal die beiden Funktionen Str und Val an
bye

Henni 3. Jul 2003 18:22

also ich würde das ungefähr so machen :
zahlen 1...9 lassen sich umrechnen durch
Code:
var x, y, z: integer;
  var c: char;
  var ziel: string;

  c:= chr(x+ 30); // damit bekommst du die einzelne stelle
  ziel:= ziel + c;
  ....
um die einzelnen Stellen abzuscheidenmusste mit MOD und DIV
rumspielen. das muss irgendwie rekursiv gehen.
das ganz errinnert mich an alte assembler-zeiten. evtl findest du ja
was, wenn du mal in die richtung schaust...

grüße
Henni


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:41 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-2025 by Thomas Breitkreuz