текст из файла в Memo

[malkolm]

Вообщем я в этом деле новичок.У меня есть файл текстовый и нужно чтобы при открытие файла программа выписывала только то что после определенного знака и определенного текста.Подскажите пожалуйста?

[malkolm]

Блин люди ну помогите пожалуйста.Просто очено срочно надо

[DelDev]

Навскидку:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  p: cardinal;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('файл_какой_то');
    p := pos('текст_с_которого_грузить', list.Text);
    memo1.Text := Copy(list.Text, p, length(List.Text) - p - 1);
  finally
    List.Free;
  end;
end;

[malkolm]

Может я что то не правильно делаю но он мне что так что сяк открывает весь целый документ(((

[mar4elo]

Дай свой код, как ты делал...

[s.Creator]

Добавь

    p := pos('текст_с_которого_грузить', list.Text);

    if p =0 then
      raise Exception.Create('Искомый текст не найден');

    memo1.Text := Copy(list.Text, p, length(List.Text) - p - 1);

Может просто не находит твой текст в файле?
(поиск регистрозависимый)

[malkolm]

var
  Form1: TForm1;
  List: TStringList;
  p: cardinal;

implementation

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);
begin

end;

procedure TForm1.N1Click(Sender: TObject);

begin
  List := TStringList.Create;
  try
    List.LoadFromFile('mangosd.conf');
    p := pos('RealmID =', list.Text);
        if p =0 then
      raise Exception.Create('Искомый текст не найден');
    memo1.Text := Copy(list.Text, p, length(List.Text) - p - 1);
  finally
    List.Free;
  end;
end;

Ну вот вообще то и код.
Нашел в чем проблема.Я в

p := pos('RealmID', list.Text)

вставлял слово с пробелом.Но теперь проблема он мне выводит весь текст с очищенной белой строчкой на которой написано то слово которое прописали в

p := pos('RealmID', list.Text)

.А мне нужно то что написано после него...Не подсобите?