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:
Código:
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:
Código:
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