أسئلة بسيطة حول TEdit

إستخدم Copy، راجع Help

مثلا: Edit2.Text:=Copy(Edit1.Text,1,2)

أكمل البقية...

استخدم كما تفضل

DeltaAziz

function Copy(S: string; FromIndex, Count: Integer): string;

procedure TForm1.Button1Click(Sender: TObject);

var

strTemp: string;

begin

strTemp:= copy(Trim(Edit1.Text),1,2);

Edit2.Text:= strTemp;

strTemp:= copy(Trim(Edit1.Text),3,2);

Edit3.Text:= strTemp;

strTemp:= copy(Trim(Edit1.Text),5,2);

Edit4.Text:= strTemp;

end;

;)

سوال هو

اريد دالة تخرج العدد الصحيح مثل يوجد عندى Edit فى 23.434

اريد ان يخرج 23 فقط و يتجهل الرقم مابعد الفاصلة

شكراً

أخي العزيز تستطيع استخدام التوابع التالية

ceil تدوير العدد الصحيح باتجاه الموجب

Ceil(-2.8) = -2

Ceil(2.8) = 3

Ceil(-1.0) = -1

floor تدوير العدد الصحيح باتجاه السالب

Floor(-2.8) = -3

Floor(2.8) = 2

Floor(-1.0) = -1

trunc القيمة الصحيحة لعدد حقيقي عن طريق اقتطاع الجزء الكسري منها

var

S, T: string;

begin

Str(1.4:2:1, T);

S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10;

Str(1.5:2:1, T);

S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10;

Str(-1.4:2:1, T);

S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)) + #13#10;

Str(-1.5:2:1, T);

S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.5));

MessageDlg(S, mtInformation, [mbOk], 0, mbOk);

end;

وتستطيع لمزيد من المعلومات مراجعة Delphi help والأمثلة السابقة منه