Путь к файлу

[mitiay]

Так ошибка

memo1.lines.loadfromfile('C:\Users\%UserName%\AppData\1.txt');

Второй вариант взял функцию определения пользователя
GetCurrentUserName

memo1.lines.loadfromfile('C:\Users\')+(GetCurrentUserName)+(\AppData\1.txt');

Тоже ошибка

[Shouldercannon]

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

Так ошибка

memo1.lines.loadfromfile('C:\Users\%UserName%\AppData\1.txt');

Без спец обработчика Delphi не понимает %UserName%

procedure TForm1.Button1Click(Sender: TObject);
var
  C: Cardinal;
  R, Path: string;
begin
  // Ищем путь к папке
  C := GetEnvironmentVariable('USERPROFILE', nil, 0);

  if C > 0 then
  begin
    SetLength(R, C - 1);
    GetEnvironmentVariable('USERPROFILE', PChar(R), C);
  end;

  Path := R + '\AppData\';

  memo1.lines.loadfromfile(Path + '1.txt');
end;

[mitiay]

Спасибо!Еще вопрос )
Мне нужно загрузить два файла.Т.Е

memo1.lines.loadfromfile('C:\Users\%UserName%\AppData\1.txt');

memo1.lines.loadfromfile('C:\Users\%UserName%\AppData\2.txt');

Выходит так первый загрузился и потом текст перезаписал второй.Как сохранить перый результат загрузки файла?Тобишь убрать перезапись

[Volkogriz]

как то так наверно:

procedure TForm1.Button2Click(Sender: TObject);
VAR
R:INTEGER;
Listik:TStringList;
begin
Listik:=TStringList.Create;
Memo1.Lines.LoadFromFile('C:\ac1.txt');
Listik.LoadFromFile('C:\ac2.txt');
for R := 0 to Listik.Count - 1 do
Memo1.Lines.Add(Listik.Strings[r]) ;
Listik.Free; //:)
end;

С Уважением,
Volkogriz!

[Stilet]

Listik:=TStringList.Create;

Освобождать не забываем!!!

[Slym]

ExpandEnvironmentStrings

[phomm]

S := Memo1.Text;
Memo1.LoadFromFile(MyFileName);
Memo1.Text := S + Memo1.Text;

[mitiay]

У меня немного другая ситуация
if ... then
memo1.lines.loadfromfile('C:\Users\ %UserName%\AppData\1.txt');

if ... then
memo1.lines.loadfromfile('C:\Users\ %UserName%\AppData\2.txt');

[northener]

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

У меня немного другая ситуация
if ... then
memo1.lines.loadfromfile('C:\Users\ %UserName%\AppData\1.txt');

if ... then
memo1.lines.loadfromfile('C:\Users\ %UserName%\AppData\2.txt');

И чем же она хоть чуть-чуть другая?

[Volkogriz]

Немного по конкретней, что не понятно что бы помочь?