Blue Snake

Na zopakovanie textu n krat za sebou sluzi funkcia DupeString z unitu StrUtils.

Zapis funkcie:

function DupeString(const AText: string; ACount: Integer): string;

Pouzitie:

procedure TForm1.BtChangeClick(Sender: TObject);
begin
   EdOutText.Text :=  DupeString('Knihy mam rad.',3);
end

Do EdOutText.Text  sa ulozi text "Knihy mam rad.Knihy mam rad.Knihy mam rad."