[faustpatron13]

здравствуйте, уважаемые программисты!
у нас сейчас такая тема, а которой мы должна открыть через Делфи текстовый фаил (*.txt) и редактировать его
например: открыть фаил и каждое первое слово строки записать в другой фаил

подскажите, как мне это реализовать...???

[v1s2222]

Код:

var
f: TextFile;
f2: TextFile;
s: String;
begin
AssignFile(f, 'C:\1.txt');
AssignFile(f2, 'C:\2.txt');

{$I-}
Reset(f);
if(IOResult <> 0) then
ReWrite(f);
{$I+}
ReWrite(f2);

While(not(EOF(f)) do begin
ReadLn(f, s);
s:=Copy(s, 1, Pos(' ', s));
Write(f2, s);
end;

Писал на коленке, возможны ошибки, но думаю разберетесь...

[faustpatron13]

да, спасибо!

попытаюсь разобраться...
хотя возможно, что и не разберусь

Код:

{$I-}
Reset(f);
if(IOResult <> 0) then
ReWrite(f);
{$I+}
ReWrite(f2);

что делает этот блок?

[v1s2222]

{$I-+} - это отключение проверки ошибок ввода/вывода.
Reset(f); - открываем файл (в данном случае для чтения).
if(IOResult <> 0) then ReWrite(f); - отлавливание ошибок: если с открытием файла произошли ошибки (например файла нет, или он используется другим процессом), то пере создаем файл...
ReWrite(f2); - создаем второй файл, в который будем записывать первые слова из каждой строчке.

[faustpatron13]

Спасибо, теперь всё стало на свои места.