![]() |
|
#4
|
||||
|
||||
![]() На Pos тоже можно
Код:
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=инфная_нужа'; //Edit1.Text:='слово3'; 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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |