|
Hi,
declare array of chars, 'a','b','c' and so on.
now define count of chars, in our country 32;
Edit1.Text is string of combined chars.
you must write procedures to store it into file etc.
i,j,k, count: integer;
begin
count := 32;
for i:=1 to count do
begin
for j:=1 to count do
begin
for k:=1 to count do
begin
Edit1.Text := IntToStr(i)+' '+IntToStr(j)+' '+IntToStr(k);
end;
end;
end;
end;
|