delphi4arab منتديات دلفي للعرب

بسم الله الله الرحمن الرحيم

عندى سؤال بسيط ان شاء الله

كود :
var
i:integer;
begin
i:=25438;
Edit1.Text:=IntToStr(i)
end;

25438
كيف أظهر العدد الثالث فقط .
محدش يجى يعملى كدا edit1.text:='4' Big Grin

كود :
var
i:integer;
begin
i:=25438;
Edit1.Text:=Copy(IntToStr(i),3,1);
end;

بارك الله فيك أخ B.M.AbdelAziZ

أيضا

PHP كود :
var
  I: Integer;
  S: string;
begin
  I := 25438;
  Str(I,S);
  Edit1.Text:= S[3];
end; 

أو

PHP كود :
var
  I: Integer;
begin
  I := 25438;
  Edit1.Text:= IntToStr(I)[3];
end; 

ghost-dz كتب :أيضا

PHP كود :
var i: Integer; s: String; begin i := 25438; str(i,s); edit1.text:= s[3]; end;
أو

PHP كود :
var i: Integer; begin i := 25438; edit1.text:= inttostr(i)[3]; end;

الله يفتح عليك ....

karika2

محمد عبد العزيز

karika2

Agmcz

karika2