Срочно!Не могу найти ошибки.Помогите!!! - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Срочно!Не могу найти ошибки.Помогите!!! (http://forum.oszone.net/showthread.php?t=140529)

Срочно!Не могу найти ошибки.Помогите!!!

Прога простейшая, транслитератор, но я чайник:(
Помогите найти ошибки, не сохраняет и говорит что текстовый файл не найден.
Что делать, через 3 часа надо сдавать.
Код в текстовом файле.

Код:

 AssignFile(f1,SaveTextFileDialog1.FileName);  

  

  Reset(f1);               

  {$I+}                      

  If IOResult <> 0 then     

   begin

      

      Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);

      Application.Terminate; 

    end;



  AssignFile(f2,SaveTextFileDialog1.FileName);

Открываешь файл (и блокируешь), а потом в него же пытаешься записывать

Reset(f1);
{$I+}
If IOResult <> 0 then
begin

Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);
Application.Terminate;
end;
Это все выкинуть?
просто я половину списал:(

Все равно он почему то не компилируеся.
Выдает ошибку здесь: - SaveTextFileDialog1.Execute;- Что делать?

Предыдущая строчка не заканчивается ;

Но это не имеет ни малейшего значения, поскольку логика работы...
Зачем ты загружаешь файл в memo1 и потом сохраняешь его? Чтобы можно было править? Тогда разберись с именами файлов в манипуляциях с memo1 и в самой процедуре обработки
На логическую ошибку тебе уже указал pva - открыть файл f1 для чтения и тут же f2 с таким же именем для записи, стереть его и попытаться из него читать... Не-а, не выйдет :)

Цитата:

Цитата VM007

просто я половину списал

Заметно :)

Цитата:

Цитата VM007

через 3 часа надо сдавать

Цитата:

Отправлено: 13:23

Наверное, всё, время вышло...

Выражаю особую благодарность PVA.
Спасибо, все понял, нагородил сам лишнего, а потом ищу ошибки.
Но как говориться "Молодо-зелено" :)
Большое спасибо PVA за помощь.
Все решено.