جلب عددعلى حسب ترتيبة؟

[karika2]

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

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

كود :

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

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

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

كود :

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

[karika2]

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

[Agmcz]

أيضا

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]

أيضا

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; 


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