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 :