ОК.
Попробовал пользовать ExtractStrings. Почти хорошо, но работает с массивом строк.
Есть у кого образец кода, как извлечь подстроки, используя указанный разделитель, используя 1 переменную (в цикле).
for i:=0 to 5 do begin
str_rez := parse(str_in,'/');// Где parse - искомая функция
(FindComponent('Label'+IntToStr(i)) as TLabel).Caption:= str_rez;
end; |
|
Надеюсь, понятно изъяснился...