VPF::Добавление записи в текстовый файл

Fran

Дата 19.8.2005, 12:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
f:TextFile;
s:string;


begin
if Button=nbInsert then
 begin
  AssignFile(f,'dolzhn.txt');
  reset(f);
 while not eof(f) do
  begin
  readln(f,s);
   if s=DBComboBox3.Text then t:=false;
  end;
 if t then
 begin
     Append(f);
     writeln(f,DBComboBox3.Text);
   CloseFile(f);
   end
end;

по логике всё правильно, и ошибок не выдаёт, а почему не получается добавить запись в тестовый файл???

tigger

Дата 19.8.2005, 13:30 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 456
Регистрация: 30.4.2005

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

Попробуй так у меня работает

Код


procedure TForm1.DBNavigator1Click(Sender: TObject; Button: NavigateBtn);
var
f:TextFile;
s:string;
t:boolean;

begin
if Button=nbInsert then
 begin
  AssignFile(f,'dolzhn.txt');
  reset(f);
 while not eof(f) do
  begin
  readln(f,s);
  if s=DBC.Text then t:=false;
  end;

 if t then
 begin
     Append(f);
     writeln(f,DBC.Text);
   CloseFile(f);
   end
end;
end;

был пропущен end; и t:boolean;

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

Guest

Дата 19.8.2005, 13:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(tigger @ 19.8.2005, 13:30)

был пропущен end; и t:boolean;

Гы

Fran

Дата 19.8.2005, 15:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Fran @ 19.8.2005, 12:22)

if Button=nbInsert then

Ошибка была здесь, потому как значение теряется из комбобокса..а код верный..сам себ ответил..

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