Delphi

pva · Отправлено: **12:35, 19-05-2009** | #2

Код:

 AssignFile(f1,SaveTextFileDialog1.FileName);  
  
  Reset(f1);               
  {$I+}                      
  If IOResult <> 0 then     
   begin
      
      Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);
      Application.Terminate; 
    end;

  AssignFile(f2,SaveTextFileDialog1.FileName);

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

VM007 · Отправлено: **13:03, 19-05-2009** | #3

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

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

VM007 · Отправлено: **14:18, 19-05-2009** | #4

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

CyberDaemon · Отправлено: **15:26, 19-05-2009** | #5

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

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

Цитата VM007:

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

Заметно

Цитата VM007:

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

Цитата:

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

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

VM007 · Отправлено: **07:57, 04-06-2009** | #6

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

Большое спасибо PVA за помощь.
Все решено.