A.S.C Filtre, Grafik ve Raporlama Eklentisi

Tags
Author: kod_adı_pars - Replies: 0 - Views: 1452
editin icinde belili bi formda yazdımak
Procedure Format(MyEdit1,MyEdit2:TEdit);
Var
I : Integer;
S : String;
begin
I := StrToInt(MyEdit1.Text);
FmtStr(S, '%.3d', [I]);
MyEdit2.Text := S;
// I.E. If Edit1.Text := '1' den Edit2.Text := '001'; döndürür
end;