Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Key: String;
begin
keys.lines.add('81LC-5U27-2LUU-C7HD-B546');
if keys.text= '81LC-5U27-2LUU-C7HD-B546' then
keys.Lines.add('XD82-817E-18PE-E175-36CD');
end;
Dies ist der Code, den ich bisjetzt habe<:
Also zum Problem,
Ich würde gerne einen kleinen simplen key generator machen.
Bei jedem Buttonklick soll sich Memo.text (keys.text) einen anderen key holen,
und halt immer in einer neuen zeile^^
wäre für hilfe dankbar
