[lmikle]

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

В текстовом файле пишем
Иванов А.А 232343 // Ф.И.О и телефон
Петров В.В 234355
В делфи допустив в едит1 пишем Иванов А.А ив едит2 выдает мне его телефон. Как-то так.

Через StringList

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  F : TStringList;
  I : Integer;
begin
  F := TStringList.Create;
  Try
    F.LoadFromFile('D:\Input.txt');
    For I := 0 To F.Count-1 Do
      If Pos(Edit1.Text,F[i]) > 0 Then
        Begin
          Edit2.Text := Trim(Copy(F[i],Length(Editg1.Text)+1,Length(F[i])-Length(Editg1.Text));
          Break;
        End;
  Finally
    F.Free;
  End;
end;

Через паскалевские файлы:

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  F : TextFile;
  S : String;
begin
  F := AssignFile('D:\Input.txt');
  Reset(F);
  While Not EoF(F) Do
    Begin
      ReadLn(F,S); 
      If Pos(Edit1.Text,S) > 0 Then
         Begin
           Edit2.Text := Trim(Copy(S,Length(Editg1.Text)+1,Length(S)-Length(Editg1.Text));
           Break;
         End;
    End;
  CloseFile(F);
end;

Если надо без учета регистра, то "заворачиваем" все строки в AnsiUpperCase.