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

بسم الله الرمن الرحيم...
اخواني السلام عليكم...

كما هو العنوان واضح...
كيف السبيل الى حذف آخر حرف من كلمة او جملة مهما كان طول الكلمة ؟
بارك الله فيكم...

والسلام عليكم

أولا أكتب هده الدالة في قسم التنفيد implementation :

كود :
Function DelLastChar(MyText:String):String;
Begin
If Length(MyText) <> 0 Then
MyText[Length(MyText)]:=#0;//Else ----- ;
Result:=MyText;
End;

أو :

كود :
Function DelLastChar(MyText:String):String;
Begin
If MyText <> '' Then
MyText[Length(MyText)]:=#0;//Else ----- ;
Result:=MyText;
End;

طريقة إستعمالها كمثال ؟؟ :

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=DelLastChar(edit1.Text);
end;

****ا أن تفيدك ؟

اعد صياغة ما تريد على شكل جملة مفيدة
ترجم حرفيا الجملة الى اوامر Pascal دلفي
نسخ نص من البداية حتى طوله ناقص واحد
نسخ Copy
النص S
من البداية 1
طوله ناقص واحد Length(s)-1
يكون الامر بدلفي

PHP كود :
S := Copy(S,1,Length(S)-1); 

حيث S متغير من نوع String يحتوى النص لو الكلمة

مثال: نفس الشيئ على محتوى مكون Edit

PHP كود :
Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-1); 

والسلام عليكم

نعم... بارك الله فيكما...
بإذن الله سأجرب هذا اليوم اثناء الفراغ في المدراسة...

وأرد عليكما خبر...
ان شاء الله...

بارك الله فيكما مرة ثانية..

نعم اخواني...
بارك الله فيكما...

حربت الآن ولله احمد ...
والآمر شغال بدون مشاكل..

بارك الله بكم ولكم

السلام عليكم يمكن
استخدام الاجراء Delete

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DeleteLastChar('Test'));
end;

function TForm1.DeleteLastChar(s: string): string;
var
  TmpStr: string;
begin
  TmpStr := s;
  Delete(TmpStr, Length(TmpStr), Length(TmpStr));
  Result := TmpStr;
end; 

AL-MOB4RM3G

TF6M

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

AL-MOB4RM3G

AL-MOB4RM3G

S.FATEH