Bez zbędnego pierdolenia, kod:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c { ,d,e,f [...] } : char;
begin
for a := 'a' to 'z' do begin for b := 'a' to 'z' do begin
for c := 'a' to 'z' do begin
// for d := 'a' to 'z' do begin
// for e := [...]
ListBox1.AddItem(a+b+c,self);
// [...] end;
end; end;
end;end;
Dla wszystkich kombinacji trzyliterowych generuje 3 sekundy
/ ale spierdala to forum cały kod ... rzal