Ayuda con archivo txt

[ecfisa]

Hola eennzzoo y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Un modo de hacerlo es:

bool SearchByDoc(String aText, String Searched, String &Found)
{
  TStrings *Split = new TStringList;
  String s;

  Split->Text = aText;
  ExtractStrings(TSysCharSet() << '.', TSysCharSet() << '\0', aText.c_str(), Split);
  Split->Delete(0);
  for(int i = 0; i < Split->Count; i++) {
    s = Split->Strings[i];
    if (s.SubString(0, s.Pos(" ")-1) == Trim(Searched)) {
      Found = Split->Strings[i];
      return true;
    }
  }
  delete Split;

  return false;
}

Ejemplo de llamada:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStrings *Arch = new TStringList;
  String Datos;

  Arch->LoadFromFile("Archivo.txt");
  if (SearchByDoc(Arch->Text, Edit1->Text, Datos))
    ShowMessage(Datos);
  else
    ShowMessage("No encontrado");  

  delete Arch;
}

Saludos