переменная в адресе

[Shaggrath]

Помогите пожалуйста с delphi, такая проблема, надо задать адрес в виде переменной, для того что бы через комбо бокс выбирать какой текстовик открыть.
жду коменты по поводу зарание спасибо!!!

[Evgeniy26]

Подробней можно? Непонятно.

[Shaggrath]

ну типа как в адрес места нахождения файла забить переменную, у меня в принципе есть мысли по этому поводу но не работает, вот код программы может найдешь что не правильно

var
  Form1: TForm1;
  z,z1,q:string;
  f:textfile;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
GroupBox1.Left:=248;
GroupBox1.top:=72;
GroupBox1.Visible:=true;
ComboBox1.Items.LoadFromFile('save/list.shg');
end;
------------------------------------------------------------Вот загвоздка
procedure TForm1.Button3Click(Sender: TObject);
begin
z:=ComboBox1.Text;
z1:='save/'+z+'25698.sgh';
assignfile(f,'z1');

while not eof (f) do
begin
readln(f,q);
closefile(f);
Label2.Caption:=q;
end;
end;

end.

[Mixasik]

Не совсем все ясно, но assignfile(f,'z1'); апострофы ненадо, это переменная, а не строка.
И по ходу - вы закрываете файл в цикле этого делать ненужно.

[Evgeniy26]

Про апострофы сказали.
Здесь еще касяк:

while not eof (f) do
begin
  readln(f,q);
  closefile(f);
  Label2.Caption:=q;
end;

[Shaggrath]

А что здесь не правильно?

z1:='save/Shaggrath/25698.sgh';
ComboBox2.Items.LoadFromFile(z1);

только не спрашивай зачем это, просто тяжело объяснить!
за рание спасибо

[Вавел из ГМТУ]

Что сказал компилятор?

[Shaggrath]

матюкался что нет такого адреса как z1, я в недопонимании, вроде должно работать пока не смерея мне так сказали, хотя я мог что то не так понять!!

[Evgeniy26]

Попробуй так:

 with TOpenDialog.Create(nil) do
  try
    if Execute then
      ComboBox1.Items.LoadFromFile(FileName);
  finally
    Free;
  end;

или так

z1 := ExtractFilePath(Application.ExeName) + 'save/Shaggrath/25698.sgh';
ComboBox2.Items.LoadFromFile(z1);

У меня твой код работает.
Покажи путь где файл лежит и *.exe.

[Shaggrath]

Выходит что то странное, по пробывал этот же фокус но только на другом проекте, все работает так как надо, я понял всему виной барабашка ибо глупость програмиста который это пишет, короче надо заново создавать проэкт, в любом случае всем спасибо за поддержку!