Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2007, 10:24   #1
Regloger
Пользователь
 
Регистрация: 15.11.2007
Сообщений: 16
Вопрос Не получается прочитать из файла...(

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

нужно прочитать все что есть в файле и записать полученую инфу в переменую 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;
Regloger вне форума Ответить с цитированием
Старый 09.12.2007, 11:04   #2
Abbatik
Форумчанин
 
Аватар для Abbatik
 
Регистрация: 11.11.2007
Сообщений: 136
По умолчанию

попробуй ni_file и in_file объявить в var как textfile
ICQ - 446037211
Abbatik вне форума Ответить с цитированием
Старый 09.12.2007, 13:43   #3
Regloger
Пользователь
 
Регистрация: 15.11.2007
Сообщений: 16
По умолчанию

прикол как раз в том что нужно использовать только нетипизированые файлы...
Regloger вне форума Ответить с цитированием
Старый 09.12.2007, 14:23   #4
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
По умолчанию

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

Вы можете организовать доступ к файлу "без определенного типа" следующим образом:
Код:
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!
Alter вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не получается запрос с inner join :mad: Только_Учусь SQL, базы данных 16 21.07.2008 09:40
не получается программирование COM Nikuzkin Общие вопросы Delphi 9 11.06.2008 14:23
Не получается..... Delpher HTML и CSS 2 25.12.2007 13:17
Не получается вывести график RECREATOR Общие вопросы Delphi 7 23.12.2007 01:23
Как мне в асме прочитать данные из файла? lelicman Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 10.10.2007 09:24