[FoMurJIom]

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

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

[vitalik007]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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@]

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