На Pos тоже можно
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | procedure TForm1 . Button1Click(Sender: TObject);
var
spisok: TStringList;
Clist, inf: string ;
i: integer ;
begin
spisok:= TStringList . Create;
spisok . Text:=
'слово=нужная_инфа' + # 10 +
'слово2=инфа_нужная' + # 10 +
'слово3=нужа_инфная' + # 10 +
'слово4=инфная_нужа' ;
Clist:= Edit1 . Text;
for i:= 0 to spisok . Count - 1 do
if (Clist <> '' ) and
(Clist = Copy(spisok[i], 1 , Pos( '=' , spisok[i])- 1 )) then
inf:= Copy(spisok[i], Pos( '=' , spisok[i])+ 1 ,Length(spisok[i]));
Label1 . Caption:= inf;
spisok . Free;
end ;
|
Бросьте только на форму баттон (туклик на него), едит и лейбл