Не получается прочитать из файла...(

[Regloger]

Проблема в том, что не могу прочитать и не могу записать из нетипизированного файла и в него... наверно, что то к моем коде не то... поглядите плиз… и подскажите как надо…

нужно прочитать все что есть в файле и записать полученую инфу в переменую text_ типа string...

//Открыть файл
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = false then Exit;
AssignFile(in_file,OpenDialog1.File Name);

Reset(in_file);

while not Eof(in_file) do
begin
ReadLn(in_file, text_);
end;


LabeledEdit.Text := OpenDialog1.FileName;
CloseFile(in_file);

end;

а тут надо все что есть в переменой text_ записать в файл...

//Сохраняем в файл
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(ni_file,OpenDialog1.File Name+ '_');
Rewrite(ni_file);
Write(ni_file,text_);
CloseFile(ni_file);
ShowMessage('Сохранение прошло успешно');
end;

[Abbatik]

попробуй ni_file и in_file объявить в var как textfile

[Regloger]

прикол как раз в том что нужно использовать только нетипизированые файлы...

[Alter]

Ты считываешь в цикле в Стринговую переменую, поэтомуу тебя запомнится в ней последнее считаное.
------------------------------------
Доступ к нетипизированному файлу
------------------------------------

Вы можете организовать доступ к файлу "без определенного типа" следующим образом:

var 
  MyFile : file;
begin
  assign(MyFile,Filename);
  reset(MyFile,1);
  {для записи}
  Blockwrite(MyFile,item,sizeof(item));
  {для чтения}
  BlockRead(MyFile,item,sizeof(item));
  close(MyFile);
end;

Имейте в виду, что для чтения/записи нетипизированного файла необходимо использовать функции blockread и blockwrite, т.к. для использования нормальных функций Read/Write компилятору необходимо знать формат файла.
___________________________________ _______
Заглядывайте в DelphiWorld!