Delphi Fonksiyonu: HizalaDoldur

Hizalı çıktılar almak için, değişkenlerin etrafını boşlukla dolduran fonksiyon.

function HizalaDoldur(const S:string; Sinir:integer; Hizala:TAlignment; Doldur: Char=' '):string;
var
uzunluk,i,j,orta,fark:integer;
sakla:string;
begin
uzunluk:=length(s);
if uzunluk>=sinir then hizala:=taLeftJustify;
case hizala of
taLeftJustify : for i:=1 to sinir do
if i<=uzunluk then
sakla:=sakla+s[i]
else
sakla:=sakla+doldur;
taRightJustify: begin
for j:=1 to sinir-uzunluk do
sakla:=sakla+doldur;
for i:=1 to sinir-j+1 do
sakla:=sakla+s[i];
end;
taCenter : begin
orta:=(sinir-uzunluk) div 2;
fark:=uzunluk+2*orta;
if fark<>sinir then fark:=sinir-fark;
for j:=1 to orta do
sakla:=sakla+doldur;
for i:=1 to sinir-2*orta-fark do
sakla:=sakla+s[i];
for i:=1 to orta+fark do
sakla:=sakla+doldur;
end;
end;
result:=sakla;
end;

13.11.2008 10:46:14

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :