[FoMurJIom]

Привед всем я тут новенький и мне нужна небольшая помощь у меня экзамен через 2 часа по delphi.
И у меня возникла проблема помогите пожалуста.
Суть проблема:
Нужно записанные в текстовом файле числа прочитать и четные записать в новый и оба файла вывести в компоненте Memo?

P.S. Я болел в это время когда все обучали так что не судите меня строго.

[vitalik007]

Код:

var f1,f2:textfile;
n:integer;  //количестово цифр в файле
i,chis:integer;
begin
assignfile(f1,'in.txt');
assignfile(f2,'out.txt');
reset(f1);
rewrite(f2);
readln(f,n);
for i:=1 to n do begin
readln(f1,chis);
if chis mod 2=0 then 
writeln(f2,chis);
end;
closefile(f1);
closefile(f2);
end.

Модератор:
Не забываем про тэги.
ЗЫЖ Ответ не полон, да и неверен в принципе

[vitalik007]

а вот про memo
memo1.lines.loadfromfile('имя файла');

[FoMurJIom]

А в memo где имя файла просто название текстового файла написать или руть тоже надо указывать?

[Yurk@]

Если у тя файлы лежат в папке с прогой то не нужно, а если дге-то в другом месте - нужно писать путь к файлу!