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

StalkerSova

Дата 20.10.2005, 17:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите неведующему почему у меня выдает [Error] Unit1.pas(121): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'String' на ReadLn(Fl,str) ??? smile

Код


procedure TForm1.ComboBox1Select(Sender: TObject);
 var
  Fl:File;
  str:String;
begin
 AssignFile(Fl,'Debet.txt');
 Reset(Fl);
 While not Eof(Fl) do
  begin
   ReadLn(Fl,str);
   if str<>'' then
    if str[1]=ComboBox1.Text then ComboBox2.Items.Add(str);
  end;
end;

Это сообщение отредактировал(а) Girder - 21.10.2005, 14:33

Snowy

Дата 20.10.2005, 17:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(StalkerSova @ 20.10.2005, 17:22)

Fl:File;

Fl: Text;

Самурай

Дата 20.10.2005, 17:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

У вас тут вообще работа с нетипизированным файлом происходит как с текстовым. Попробуйте заменить описание файловой переменной с типа File на TextFile (или Text)

StalkerSova

Дата 20.10.2005, 17:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Сенкс только Fl: TextFile;
smile

Snowy

Дата 21.10.2005, 08:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(StalkerSova @ 20.10.2005, 17:26)

Сенкс только Fl: TextFile;

Без разницы. И так и так работает.

Цитата(StalkerSova @ 20.10.2005, 17:22)

if str[1]=ComboBox1.Text then ComboBox2.Items.Add(str);

А если в тексте больше одной буквы?

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