VPF::файл - Форум программистов

SoWa

Дата 13.3.2005, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Цитата

var
f:TextFile;

Может не надо TextFile а надо просто Text ???
Я его всю свою олимпиадную жизнь использую, и работает...

--------------------

Всем добра smile

Fir

Дата 13.3.2005, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 8.2.2005
Где: г.Берёзовский,Све рдл.обл

Репутация: нет
Всего: нет

После следующей функции файл остаётся открыт или ещё чё-то!! smile

Код

procedure TForm1.ComboBox1Click(Sender: TObject);
var
f:Textfile;
s:string;
begin
Assignfile(f, fname);
Reset(f);
if ComboBox1.ItemIndex=0 then
 begin
 memo1.Lines.Clear;
   repeat
    begin
    readln(f, s);
    if Copy(s, 0, 4)<>'###_'
    then memo1.Lines.Add(s)
    else memo1.Lines.Add(#13);
    end;
  until (EOF(f)=True);
end;
//-------------------------------
repeat
 begin
  readln(f, s);
  if Copy(s, 0, length(s))=('###_'+ComboBox1.Text) then
   begin
    memo1.Lines.Clear;
    Memo1.Lines.Add('------'+comboBox1.Text+'------');
    s:='';
       repeat
         begin
          Memo1.Lines.Add(s);
          readln(f, s);
         end;
       until (EOF(f)=True) or (Copy(s, 0, 4)='###_');
    Exit;
   end;
 end;
until EOF(f)=true;
Closefile(f);
end;

Это сообщение отредактировал(а) Vit - 14.3.2005, 16:51

[EViL]

Дата 13.3.2005, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 10.3.2005
Где: Екатеринбург

Репутация: 1
Всего: 1

Тебе же умные люди подсказали юзать TFileStream или TStringList.
Вся эта чушь с textfile и text - фигня, каменный век.
Они оставлены ТОЛЬКО ДЛЯ СОВМЕСТИМОСТИ с Borland Pascal.

Vit

Дата 14.3.2005, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


procedure TForm1.ComboBox1Click(Sender: TObject);
var
f:Textfile;
s:string;
begin
Assignfile(f, fname);
Reset(f);
if ComboBox1.ItemIndex=0 then
 begin
 memo1.Lines.Clear;
   repeat //<-Vit: лучше использовать While на случай если файл пустой
    begin
    readln(f, s);
    if Copy(s, 0, 4)<>'###_'
    then memo1.Lines.Add(s)
    else memo1.Lines.Add(#13);
    end;
  until (EOF(f)=True);
end; 
//<-Vit: а где здесь закрытие файла? Ты дочитал его до конца и опять пытаешься читать?
// ну ды у тебя текущая позиция в конце файла!
//-------------------------------
repeat
 begin
  readln(f, s);
  if Copy(s, 0, length(s))=('###_'+ComboBox1.Text) then
   begin
    memo1.Lines.Clear;
    Memo1.Lines.Add('------'+comboBox1.Text+'------');
    s:='';
       repeat
         begin
          Memo1.Lines.Add(s);
          readln(f, s);
         end;
       until (EOF(f)=True) or (Copy(s, 0, 4)='###_');
    Exit;
   end;
 end;
until EOF(f)=true;
Closefile(f);
end;

Добавлено @ 16:55

Цитата(SoWa @ 13.3.2005, 08:09)

Может не надо TextFile а надо просто Text ???

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

Цитата

, 13.3.2005, 10:50]Тебе же умные люди подсказали юзать TFileStream или TStringList.
Вся эта чушь с textfile и text - фигня, каменный век.
Они оставлены ТОЛЬКО ДЛЯ СОВМЕСТИМОСТИ с Borland Pascal.

Тут мог бы поспорить... Но не буду офтопить... В любом случае эти функции работают совершенно нормально.

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Fir

Дата 15.3.2005, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Спосибо! Всё ок! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »