Encher Array

Delphi

01/10/2012

Estou com um problema que é o seguinte, Criei uma Unit e estou enchendo uma array da seguinte forma.

const
Count = 3; { Contagem de hacks bloqueados pelo dump }

type
TMemDump = array[0..31] of Byte;
TCheatList = record

Offset : Cardinal;
MemDump : TMemDump;
cName : String;
end;

const
ProcessesDumps: array[0..Count -1] of TCheatList =
(
{ Aqui fica os Offset e MemDump dos hack, você pode colocar mais dump e também aumentar a quantidade de hack bloqueado}
(Offset : $00473BBC; MemDump :($55, $8b, $ec, $83, $c4, $f4, $b8, $04, $3a, $47, $00, $e8, $e0, $26, $f9, $ff, $a1, $1c, $5c, $47, $00, $8b, $00, $e8, $04, $be, $fc, $ff, $8b, $0d, $e4, $5c); cName : 'Capote'), //Capote
(Offset : $00401250; MemDump :($68, $00, $c3, $40, $00, $e8, $ee, $ff, $ff, $ff, $00, $00, $00, $00, $00, $00, $30, $00, $00, $00, $38, $00, $00, $00, $00, $00, $00, $00, $52, $6d, $26, $d8); cName : 'Cheat MU'), //Cheat MU
(Offset : $0047C818; MemDump :($55, $8b, $ec, $83, $c4, $f0, $b8, $6c, $b9, $47, $00, $e8, $88, $9f, $f8, $ff, $a1, $68, $f5, $47, $00, $8b, $00, $e8, $24, $52, $fe, $ff, $a1, $68, $f5, $47); cName : 'Editor Bau')); //Editor Bau



Porem nao gostaria de Fazer assim.

Gostaria que a array enchesse a partir de um ListBox por exemplo, onde o list box sera enchido de um arquivo txt...
para fazer isso que estou com dificuldade, nao sei a forma como leio para declarar a arrar e depois enchela.

Alguem poderia dar uma luz.


Obrigado desde ja.
Douglas Michelino

Douglas Michelino

Curtidas 0
POSTAR