Как вытащить часть текста из Memo

@Коляк@ · Регистрация: 29.01.2012

Author24 — интернет-сервис помощи студентам

Добрый день!
Вывожу в Memo1 список переменных среды.

Delphi

Function GetEnvironmentStrings(): TStrings;
{Переменные среды}
var
  ptr: PChar;
  s: string;
  Done: boolean;
  ss:TStrings;
begin
  ss := TStringList.Create();
  s:='';
  Done:=FALSE;
  ptr:=windows.GetEnvironmentStrings;
  while Done=false do
  begin
    if ptr^=#0 then
    begin
      inc(ptr);
      if ptr^=#0 then Done:=TRUE
        else ss.Add(s);
      s:=ptr^;
    end else s:=s+ptr^;
  inc(ptr);
 end;
 result := ss;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines := GetEnvironmentStrings();
end;

Мне нужно вытащить в Edit1 значение переменной среды ProgramFiles.
Подскажите как это вытащить из Memo1?

Или есть способ сразу в Edit1 вывести значение переменной среды ProgramFiles?

@volvo · 03.09.2012, 14:10

Есть функция GetEnvironmentVariable

Delphi

1	Edit1.Text := GetEnvironmentVariable('ProgramFiles');

@Коляк@ · 03.09.2012, 14:16 **[ТС]**

UI, спасибище!

@Коляк@ 0 / 0 / 0 Регистрация: 29.01.2012 Сообщений: 55
	03.09.2012, 14:16 [ТС]	3
	UI, спасибище! 0