Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
Konu: DELPHI / Function Basson
-
23.Kasım.2014, 22:31 #1
DELPHI / Function Basson
DELPHI / Function Basson
Kod:
function FormatSt( S: String; BasSon,Count: Integer; Chr: Char):String;
var
j,i : Integer ;
tmpChr : String ;
begin
i := Length(S) ;
tmpChr := '' ;
if i = 0 then
for j:= 1 to (Count) do tmpChr := tmpChr + Chr
else
for j:= 1 to (Count - i) do tmpChr := tmpChr + Chr ;
if BasSon = 1 then
Result := tmpChr + S
else
Result := S + tmpChr ;
end;
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
Delphi Dos Hataları Nelerdir?
Konu Sahibi kazanova21641 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 14.Nisan.2015, 22:31 -
Delphi Hata Kodları
Konu Sahibi kazanova21641 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 14.Nisan.2015, 22:26 -
Delphi Uzantıları Nelerdir?
Konu Sahibi kazanova21641 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 14.Nisan.2015, 22:23 -
Function İle Kullanıcıya Nasıl Mesaj Gönderirsiniz?
Konu Sahibi kazanova21641 Forum Web Programlama DilleriCevap: 0Son Mesaj : 15.Ekim.2014, 11:57 -
Delphi İf Yapısının Kullanımı
Konu Sahibi kazanova21641 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 01.Ekim.2014, 09:37
Shopsocks5 - Service Socks5 Cheap...
Bugün, 15:00 in Güvenlik