[Delphi] Pasek postepu

0

Witam
Czy ktos wie jak zrobic pasek postepu przy wyszukiwaniu ciagu znakow w tekscie ??

--Pozdrowienia

0

Wszystko zależy jaką metodą wyszukujesz text? Ale możesz zrobic tak:

var
text : string; *text w którym chcesz wyszukiwac dany ciag znakow
i : integer;
begin
progress.position:=0;
porgress.max:=length(text);
for i:=1 to length(text) do
begin
*tu regóła wyszukiwania
progress.position:=i;
end;
Showmessage('Wyszukiwanie zakończone');--GOGLE is the best :)
Pozdrowienia Chodek

1 użytkowników online, w tym zalogowanych: 0, gości: 1