Chcę stworzyć animację w StatusBar rozszerzania się stringu po znaku.
Mam string1, z tekstem i chcę aby string2 przyjmował to znak po znaku, np. string1 = 'dom';
string2 ='d' --> string2 = 'do' --> string2 = 'dom'
Dodawani realizowane timerem. Ma coś takiego, ale to nie wyświetla znak po znaku tylko pokazuje kolejne (czyli mi nie pasuje):
procedure TForm1.Timer2Timer(Sender: TObject);
var
z : string;
te : string;
begin
Label15.Caption:=IntToStr(StrToInt(Label15.Caption)+1);
te:='Tekst do animacji';
z:= z + te[StrToInt(Label15.Caption)];
with StatusBar1 do
Panels[Panels.Count-1].Text:=z;
end;
Label15 ma stan startowy '0'.
Z góry dziękuję za pomoc