[Optimieren] TStringList

[negaH]

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