Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi eine Zeichenkette aus einem Integer 'erstellen' (https://www.delphipraxis.net/101000-eine-zeichenkette-aus-einem-integer-erstellen.html)

BasicX 6. Okt 2007 20:46


eine Zeichenkette aus einem Integer 'erstellen'
 
Hi,

Ich habe folgendes Problem:
Ich will einen String erstellen, und zwar (um das ganze nicht zu einfach zu machen) habe ich eine Integer Zahl, die nach dem folgendem Chema umgewandelt werden soll:
1 entspricht char(1)
2 entspricht char(2)
...
253 entspricht char(1) + char(1)
254 entspricht char(1) + char(2)

Die Zeichenfolge soll 'unbegrenzt' lang werden können

Nun habe ich aber absolut keinen Plan, wie ich das umsetzten kann. :wall: :wall:
Ich werde mich natürlich über jede Antwort freuen. :coder2:

MfG BasicX

mkinzler 6. Okt 2007 20:49

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Sollte mit Modulo gehen

BasicX 6. Okt 2007 20:51

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
an Modulo hab ich auch schon gedacht, aber ich komm auf keinen gescheiten Quelltext

mkinzler 6. Okt 2007 20:58

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Unentlich wirst du es mit einem Integer nicht schaffen.
Beispiel für 2 stellen. Für mehr musst du verketten.

Delphi-Quellcode:
s := Chr( Zahl MOD 252) + Chr(Zahl DIV 252);

BasicX 6. Okt 2007 21:01

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Das Integer nicht unendlich weit gehen ist mir schon klar, desswegen ja die ''.
Danke für den Vorschlag, ich brach auf jedenfall mehr als 2 Stellen, aber ich glaub das verketten könnt ich noch schaffen

Danke und MfG BasicX

Dax 6. Okt 2007 21:06

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Delphi-Quellcode:
var i: integer; s: string;

s := '';
while i <> 0 do begin
  s := s + chr(i mod 252);
  i := i div 252;
end;

BasicX 6. Okt 2007 21:12

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Alter Vatter, ich LIEBE dieses Forum :love: , aktive Hilfsbereite Community, einfach GENIAL, danke für die schnelle Hilfe, sieht ja gut aus, werds gleich testen

MfG BasicX

BasicX 6. Okt 2007 21:20

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Nun is der String nur noch genau falsch rum, aber das ist ja nur ne Kleinigkeit, ansonsten GENIAL

Dax 6. Okt 2007 21:33

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Ups, dann hab ich oben dein Eingangsposting falsch gelesen.. :oops: Dann muss es natürlich "+ s" heißen und nicht "s +". Aber eine Frage: warum nimmst du ein 252-System statt dem üblichen 256?

BasicX 6. Okt 2007 21:48

Re: eine Zeichenkette aus einem Integer 'erstellen'
 
Zitat:

Zitat von Dax
Aber eine Frage: warum nimmst du ein 252-System statt dem üblichen 256?

Kleiner Fehler meinerseits, aber es geht mir elementar um a-z, A-Z, 0-9, der Rest is schön, aber nicht überlebenswichtig.

Danke für den Hinweis

Nochmal Abschließen DANKE für diese schnelle Kompetente Hilfe, mein Quelly wär wahrscheinlich 20 mal länger, aber ich komm schon noch rein.
Hab nebenbei noch nen Projekt mit Video-erkennung laufen, aber da harke ich noch zum Glück nirgendwo.

MfG BasicX


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:37 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