Путь к файлу

[Slym]

да елы палы чем ExpandEnvironmentStrings не угодил?

function ExpandEnvironmentStringsPas(const Str:string):string;
begin
  SetLength(Result,Length(Str)+1024);
  SetLength(Result,ExpandEnvironmentStrings(PChar(Str),PChar(result),Length(result)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  caption:= ExpandEnvironmentStringsPas('C:\Users\%UserName%\AppData\2.txt');
end;

и привязываться к "Ц:" - плохой вариант

caption:= ExpandEnvironmentStringsPas('%Userprofile%\AppData\2.txt');
//или
caption:= ExpandEnvironmentStringsPas('%AppData%\2.txt');
//или
caption:= ExpandEnvironmentStringsPas('%SystemDrive%\Users\%UserName%\AppData\2.txt');

[Volkogriz]

угодил наверно) парню лет 14 ион только увидел компилятор не надо его обижать!!!
к стати почему постоянно место помощи забивать начинают? повышают самооценку? прщье надо быть и помочь а ни строить умников! Умных топят

[mitiay]

Сообщение от Slym

да елы палы чем ExpandEnvironmentStrings не угодил?

function ExpandEnvironmentStringsPas(const Str:string):string;
begin
  SetLength(Result,Length(Str)+1024);
  SetLength(Result,ExpandEnvironmentStrings(PChar(Str),PChar(result),Length(result)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  caption:= ExpandEnvironmentStringsPas('C:\Users\%UserName%\AppData\2.txt');
end;

и привязываться к "Ц:" - плохой вариант

caption:= ExpandEnvironmentStringsPas('%Userprofile%\AppData\2.txt');
//или
caption:= ExpandEnvironmentStringsPas('%AppData%\2.txt');
//или
caption:= ExpandEnvironmentStringsPas('%SystemDrive%\Users\%UserName%\AppData\2.txt');

Я конечно все понимаю!Но опять перезаписывает мемо)Если грузишь два файла

[Аватар]

прщье надо быть и помочь а ни строить умников! Умных топят

прщье от слова прыщ? И где тут кто кого топил? Умных топят, а дураков?

[Volkogriz]

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

[Slym]

про два файла я только прочитал

function ExpandEnvironmentStringsPas(const Str:string):string;
begin
  SetLength(Result,Length(Str)+1024);
  SetLength(Result,ExpandEnvironmentStrings(PChar(Str),PChar(result),Length(result)));
end;

procedure TForm1.FormCreate(Sender: TObject);
var Strings:TStringList;
begin
  memo1.Lines.Clear;
  Strings:=TStringList.Create;
  try
    Strings.LoadFromFile(ExpandEnvironmentStringsPas('%Userprofile%\AppData\1.txt'));
    memo1.Lines.AddStrings(Strings);
    Strings.LoadFromFile(ExpandEnvironmentStringsPas('%Userprofile%\AppData\2.txt'));
    memo1.Lines.AddStrings(Strings);
  finally
    Strings.Free;
  end;
end;

[oksalan]

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

[Пепел Феникса]

Сообщение от oksalan

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

не все пути являются уникальными, с ЮсерФолдер путь универсальный.

[mitiay]

Сообщение от Slym

про два файла я только прочитал

function ExpandEnvironmentStringsPas(const Str:string):string;
begin
  SetLength(Result,Length(Str)+1024);
  SetLength(Result,ExpandEnvironmentStrings(PChar(Str),PChar(result),Length(result)));
end;

procedure TForm1.FormCreate(Sender: TObject);
var Strings:TStringList;
begin
  memo1.Lines.Clear;
  Strings:=TStringList.Create;
  try
    Strings.LoadFromFile(ExpandEnvironmentStringsPas('%Userprofile%\AppData\1.txt'));
    memo1.Lines.AddStrings(Strings);
    Strings.LoadFromFile(ExpandEnvironmentStringsPas('%Userprofile%\AppData\2.txt'));
    memo1.Lines.AddStrings(Strings);
  finally
    Strings.Free;
  end;
end;

Спасибо большое!!Еще вопрос )))Как избежать ошибки " файл не найдет" То есть если путь корявый как сделать чтоб не было ошибки

[Slym]

function ExpandEnvironmentStringsPas(const Str:string):string;
begin
  SetLength(Result,Length(Str)+1024);
  SetLength(Result,ExpandEnvironmentStrings(PChar(Str),PChar(result),Length(result)));
end;

procedure TForm1.FormCreate(Sender: TObject);
var Strings:TStringList;
begin
  try 
  memo1.Lines.Clear;
  Strings:=TStringList.Create;
  try
    try 
    Strings.LoadFromFile(ExpandEnvironmentStringsPas('%Userprofile%\AppData\1.txt'));
    memo1.Lines.AddStrings(Strings);
    Strings.LoadFromFile(ExpandEnvironmentStringsPas('%Userprofile%\AppData\2.txt'));
    memo1.Lines.AddStrings(Strings);
  finally
    Strings.Free;
  end;
  except
    on e:exception do 
    Application.MessageBox('фигвам','финита ля камедия',mb_ok);
  end;
end;