[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]

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

Код:

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

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

[angvelem]

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

Код:

FileExists(Edit5.Text)=True

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

[t116]

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

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

[angvelem]

Очепятался

Код:

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

[t116]

здесь в Edit2.Text задается имя файла

Код:

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
 SetCurrentDir(ExtractFilePath(Application.ExeName)+'Абоненты');
 Abonent.FIO:=Edit2.Text;
 Abonent.Adress:=Edit3.Text;
 Abonent.Telefon:=Edit4.Text;
 Abonent.Data:=Edit5.Text;
 Abonent.Spisok:=Memo1.Text;
    AssignFile(DAbonent,Edit2.Text);
    Rewrite(DAbonent);
    Write(DAbonent,Abonent);
    CloseFile(DAbonent);
  if FileExists(Edit2.Text)=True
  then
  ShowMessage('Запись сохранена');

[t116]

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

ShowMessage'Файл не найден'

[angvelem]

Ух, утомил:

Код:

procedure TMainForm.SpeedButton5Click(Sender: TObject);
var
  St : String;
begin
  St := ExtractFileDir(ParamStr(0)) + '\Абонент\' + Edit5.Text;
  if FileExists(St) then
  begin
    AssignFile(DAbonent, St);
    try
      Reset(DAbonent);
      Read(DAbonent, Abonent);
    finally
      CloseFile(DAbonent);
    end;
    Edit2.Text := Abonent.FIO;
    Edit3.Text := Abonent.Adress;
    Edit4.Text := Abonent.Telefon;
    Edit5.Text := Abonent.Data;
    Memo1.Text := Abonent.Spisok;
  end
  else
    ShowMessage('Файл не найден');
end;