W
Wild_cat
Здравствуйте, мне сново нужна помощь
f.LoadFromFile('ways.log');
выкидывает что файл не найден, при том ссылается на путь где файла 'ways.log' не должно быть,
то есть в папку где был взят путь через OpenDialog
так надо чтобы ways.log загружался из той же папки где сама программа.
var
Path:string;
OpenDialog1: TOpenDialog;
f:TStrings;
begin
OpenDialog1 := TOpenDialog.Create(Application);
if OpenDialog1.Execute then
Path := OpenDialog1.FileName;
if Path <> ''then
begin
f:= TStringList.Create();
f.LoadFromFile('ways.log');
f.add(path);
f.SaveToFile('ways.log');
f.Free;
ListBox1.Items.LoadFromFile('ways.log');
end;
За ранее спасибо за помощь.
f.LoadFromFile('ways.log');
выкидывает что файл не найден, при том ссылается на путь где файла 'ways.log' не должно быть,
то есть в папку где был взят путь через OpenDialog
так надо чтобы ways.log загружался из той же папки где сама программа.
var
Path:string;
OpenDialog1: TOpenDialog;
f:TStrings;
begin
OpenDialog1 := TOpenDialog.Create(Application);
if OpenDialog1.Execute then
Path := OpenDialog1.FileName;
if Path <> ''then
begin
f:= TStringList.Create();
f.LoadFromFile('ways.log');
f.add(path);
f.SaveToFile('ways.log');
f.Free;
ListBox1.Items.LoadFromFile('ways.log');
end;
За ранее спасибо за помощь.