Проверка значения в ini файле

[darvin232]

Подскажите, пожалуйста.
Мне нужно с помощью if проверить, существует ли значение(текст) в ini файле

[General]
Path=c:\project1.ini <-- есть ли тут текст

Елси существует, то выполнить ...

[Человек_Борща]

Проще пареной репы:

function IniValueDataExists(aIniFile, aIniSection, aIniValue: AnsiString): Boolean;
var
  ini: TIniFile;
  tempS: AnsiString;
begin
  ini := TIniFile.Create(aIniFile);
  try
    if ini.SectionExists(aIniSection) then
    begin
      if ini.ValueExists(aIniSection, aIniValue) then
      begin
        tempS := ini.ReadString(aIniSection, aIniValue, '');
        if Length(tempS) > 0 then
          Result := True
        else
          Result := False;
      end
      else
        Result := False;
    end
    else
      Result := False;
  finally
    FreeAndNil(ini);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TIniFile;
  myDir, s: string;
begin
  myDir := ExtractFilePath(ParamStr(0));
  s := '';
  ini := TIniFile.Create(myDir + 'cfg.ini');
  try
    ini.WriteString('Main', 'v0', myDir);
    ini.WriteString('Main', 'v1', s);
  finally
    ini.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myDir: string;
begin
  myDir := ExtractFilePath(ParamStr(0));
  if IniValueDataExists(myDir + 'cfg.ini', 'Main', 'v0') then
    Memo1.Lines.Add('Значение переменной v0 не пустое')
  else
    Memo1.Lines.Add('Значение переменной v0 пустое');
  if IniValueDataExists(myDir + 'cfg.ini', 'Main', 'v1') then
    Memo1.Lines.Add('Значение переменной v1 не пустое')
  else
    Memo1.Lines.Add('Значение переменной v1 пустое');
end;

[darvin232]

спасибо, работает!!
только я его сократил в пол раза))

procedure TForm1.Button1Click(Sender: TObject);
begin
if IniValueDataExists('d:\p1.ini', 'General', 'PathGame') then
    Memo1.Lines.Add('PathGame не пустой')
  else
    Memo1.Lines.Add('PathGame пустой');
end;