datei kodieren und speichern

[maluprog]

mit dem debugger ist alles o.k


vielleicht noch eine ergänzung;

procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
randseed:=code;
randomize;
for i := 1 to high(superkey) do superkey[i]:=random(255);
end;

wobei einmal als var

superkey : array[1..keysize] of byte;

deklariert ist.

als z. bsp. als const

keysize = 1234;
code = 5678; gesetzt sind. ( können auch andere Zahlenkombinationen sein! )

vielleicht hilft's weiter, habe inzwischen alles probiert!

die datei lädt schon meines erachtens schon richt, sehe ich ander zeichenkette, es muss am decodieren
nach einem neustart liegen!

malu