FindText

← →
Cyxapeff (2004-04-13 13:23) [0]

Может кто знает, почему у меня не работает программа?
Я хочу вывести найденую строку, но она пустая вот код
procedure TForm1.Button2Click(Sender: TObject); var Find: string; a:TSearchTypes; Stroka: integer; begin Find:="7z313.exe"; Stroka:=RichEdit1.FindText(Find,0,c,a); label1.Caption:=RichEdit1.Lines[stroka]; end;

← →
MBo © (2004-04-13 13:34) [1]

Что, на твой взгляд, возвращает FindText и что об это думает хелп?

FindText Найти похожие ветки