Delphi-Quellcode:
if table[x] = '0' then
table[x] := inttostr((ord(dat.text[i])));
ich gehe davon aus das Table[] als Table[Byte] of String deklariert wurde. Ändere die ab in
Delphi-Quellcode:
var
table: array[char] of Char;
// table initalisiieren mit
FillChar(table, SizeOf(table), 0);
// in deiner Schleife nun
x := plainText[I]; // x type Char
if table[x] = #0 then
table[x] := ordText[i];
damit optimierst du das IntToStr() weg, was sehr inperformant ist. In table[] stehen dann
ASCII Zeichen die du wenn es nötig ist mit IntToStr(Ord(table[char(i)])) umwandeln kannst. Ich denke aber das das garnicht nötig sein wird.
Gruß Hagen