Fungsi DupeString sama dengan StringOfChar. Letak perbedaannya pada unit tempat mereka dan hasil dari fungsinya. Dupe string di unit StrUtils, sedangkan StringOfChar di unit System. DupeString akan mengembalikan hasil fungsi dalam string, sedangkan StringOfChar akan mengembalikan nilai fungsi sebagai AnsiString. Tugas fungsi ini adalah menggandakan string sampai nilai yang ditentukan.
Sintak DupeString adalah:
DupeString(String, JumlahDigandakan): String;
Contoh dibawah ini adalah menggandakan titik sampai 50 kali.
DupeString('.', 50);
Sebagai contoh kasus, saya menggunakan contoh pada artikel StringOfChar, untuk menghasilkan tampilan seperti dibawah ini:
tetapi kali ini saya menggantinya dengan DupeString. Kode program dibawah ini:
for i:= 1 to to 10 do begin
for x := 1 to i do begin
if x = i then
Writeln('*')
else
Write('*');
end;
end;
dapat kita ganti dengan memakai DupeString sebagai berikut:
for i:= 1 to to 10 do begin
Writeln(DupeString('*', i));
end;
0 comments:
Posting Komentar