FILLCHAR

Untuk mengisi karakter tertentu dari awal teks hingga posisi yang diinginkan.

Contoh :

Uses crt;

Var s:string;

Begin

Clrscr;

S:=’Belajar Turbo Pascal’);

Writeln(‘kalimat semula: ‘);

Writeln(s);

Fillchar(s,9,’x’);

Writeln;

Writeln(‘Setelah diisi karakter spasi hingga ke posisi 9 ‘);

Writeln(s);

Readln;

End.

Kembali ke Contoh Program Turbo Pacal