Тупо генерируем текстовый файл:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
A, B, C, D, E : Integer;
begin
AssignFile(F, 'dict.txt');
Rewrite(F);
for E := Ord('a') to Ord('z') do
for D := Ord('a') to Ord('z') do
for C := Ord('a') to Ord('z') do
for B := Ord('a') to Ord('z') do
for A := Ord('a') to Ord('z') do
WriteLn(F, Char(E)+Char(D)+Char(C)+Char(B)+Char(A));
CloseFile(F);
end;
|
Получаем файл в 79 Мб и с более чем 11 млн. строк. Только на кой этот файл нужен? Чего с ним делать?
Использование еще и цифр, код сложнее и файл получается больше на треть.
01.10.2008, 10:18
Древовидный вид