eine Zeichenkette aus einem Integer 'erstellen'

[BasicX]

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.
Ich werde mich natürlich über jede Antwort freuen.

MfG BasicX

[mkinzler]

Sollte mit Modulo gehen

[BasicX]

an Modulo hab ich auch schon gedacht, aber ich komm auf keinen gescheiten Quelltext

[mkinzler]

Unentlich wirst du es mit einem Integer nicht schaffen.
Beispiel für 2 stellen. Für mehr musst du verketten.

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

[BasicX]

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]

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]

Alter Vatter, ich LIEBE dieses Forum , aktive Hilfsbereite Community, einfach GENIAL, danke für die schnelle Hilfe, sieht ja gut aus, werds gleich testen

MfG BasicX

[BasicX]

Nun is der String nur noch genau falsch rum, aber das ist ja nur ne Kleinigkeit, ansonsten GENIAL

[Dax]

Ups, dann hab ich oben dein Eingangsposting falsch gelesen.. 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]

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