[t116]

Здравствуйте. Это кусок кода из бд на основе типизированных бинарных файлов. Когда я заполняю поля бд. затем сохраняю у меня в каталоге создается файл. А когда выполняется поиск при помощи этого кода выдается ShowMessage('Файл не найден') С 19 часов сижу не могу разобрать. Помогите)

Код:

procedure TMainForm.SpeedButton5Click(Sender: TObject);
begin
  SetCurrentDir(ExtractFilePath(Application.ExeName)+'Абонент');
try
  if FileExists(Edit5.Text)=True
then begin
  AssignFile(DAbonent,Edit5.Text);
  Reset(DAbonent);
  Read(DAbonent,Abonent);
  CloseFile(DAbonent);
    Edit2.Text:=Abonent.FIO;
    Edit3.Text:=Abonent.Adress;
    Edit4.Text:=Abonent.Telefon;
    Edit5.Text:=Abonent.Data;
    Memo1.Text:=Abonent.Spisok;
end else
      ShowMessage('Файл не найден');
Except
Exit;
end;

[angvelem]

Особенно понравилась это:

Код:

 SetCurrentDir(ExtractFilePath(Application.ExeName)+'Абонент');
 if FileExists(Edit5.Text)=True

[PhoeniX]

А что в Edit5.Text находится в момент выполнения данного события?

[angvelem]

Наверняка имя загружаемого файла. Но слэш поставить это ещё догадаться нужно, а смена текущего каталога это вообще высший пилотаж.

[t116]

В Edit5 загружаются данные со структуры, т.е здесь у меня записана дата выдачи типа string- я пока учусь мне так проще

[angvelem]

Тогда что ты хочешь загрузить?

...данные со структуры...

[t116]

Имя файла формируется из Edit2.Text

[angvelem]

Хорошо, тогда попробуй так:

Код:

var
  St : String;
begin
  St := GetCurrentDir(ParamStr(0)) + '\Абонент\' + Edit5.Text;
  if FileExists(St) then
  begin
    ...
  end
  else
    ShowMessage('Файл не найден');

[t116]

St := GetCurrentDir(ParamStr(0)) + '\Абонент\' + Edit2.Text;

выдает [Error] Unit1.pas(105): Too many actual parameters

[t116]

нашел две ошибки надо Edit2.Text. имя файла это данные из Edit2.Text.

Код:

if FileExists(Edit5.Text)=True
then begin
  AssignFile(DAbonent,Edit5.Text);

Но ничего не изменилось

[angvelem]

А я разве так написал? Смотри внимательнее. И в этой строке:

Код:

FileExists(Edit5.Text)=True

True не нужно писать, это не С, это Дельфи.