Очень нужен совет по Delphi 7.0

[Димкоff]

Здравствуйте, уважаемые посетители форума. Всех с православным Рождеством! Очень нужна помощь. Собственно сам сабж: нужно составить программу, которая создает файл, состоящий из N значений типа integer. Прочитайте файл и выведите только четные элементы. Тип record не использовать. дошел до сюда, дальше - затык(((, помогите, пожалуйста, если знаете как:
................................... ...................................

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..300] of integer;
outfile: TextFile;
i:integer;
begin
AssignFile(outfile, 'c:\outfile.txt'); // связываем переменную с файла в который будем писать
Rewrite(outfile);

For  i:=1 to 300 do begin
a[i]:=random(300);
writeln(outfile, FloatToStr(a[i]) ); // Запись в файл 'c:\outfile.txt'
end;

CloseFile(outfile); // обязательно закрываем файл
begin
Memo1.Lines.LoadFromFile('c:\outfile.txt');
Label1.Caption:='Файл создан!';
end;

................................... ..................
Очень надеюсь на помощь! Заранее спасибо

[Fantazerishka]

K:=filesize(outfile);
For i:=0 to k do begin
seek(outfile, i);
read(outfile, li);
If li mod 2=0 then begin
Memo1.Lines.Add(inttostr(li));

Опять же код не проверенный и делал по памяти, но авось заработает)

[Димкоff]

Спасибо большое, я там свой "шедевр" сделал, через repeat и until. Все работает!))

[Serge_Bliznykov]

Прежде всего, я думаю, что вы делаете ошибку, используя вместо file of integer, текстовый файл!!

второе, массив здесь НЕ НУЖЕН!

третье, вместо FloatToStr надо использовать IntToStr (если Вы всё таки с текстовым файлом будете заморачиваться!! )

но, если Вы уверены в том, что делаете всё правильно,
то:

CloseFile(outfile); // обязательно закрываем файл
begin
  AssignFile(outfile, 'c:\outfile.txt'); // связываем  переменную с файла в который будем писать
  Reset(outfile);
  Memo1.Lines.Clear; // очистим Memo1
  while Not Eof(outfile) do begin
    Readln(outfilem,s);
    if Not Odd(StrToInt(s))  then
      Memo1.Lines.Append(s)
  end;
  CloseFile(outfile)
end;

[Димкоff]

вроде все работает, большое спасибо!

[Fantazerishka]

Сообщение от Димкоff

Все работает!))

Ну и отлично, в моих программах это редкость))