Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

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 и что об это думает хелп?

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c