+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ (/showthread.php?tid=554)
حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ - AL-MOB4RM3G - 08-02-2009
بسم الله الرمن الرحيم...
اخواني السلام عليكم...
كما هو العنوان واضح...
كيف السبيل الى حذف آخر حرف من كلمة او جملة مهما كان طول الكلمة ؟
بارك الله فيكم...
والسلام عليكم
حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ - TF6M - 08-02-2009
أولا أكتب هده الدالة في قسم التنفيد 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;****ا أن تفيدك ؟
حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ - محمد عبد العزيز - 08-02-2009
اعد صياغة ما تريد على شكل جملة مفيدة
ترجم حرفيا الجملة الى اوامر Pascal دلفي
نسخ نص من البداية حتى طوله ناقص واحد
نسخ Copy
النص S
من البداية 1
طوله ناقص واحد Length(s)-1
يكون الامر بدلفي
PHP كود :
S := Copy(S,1,Length(S)-1);
مثال: نفس الشيئ على محتوى مكون Edit
PHP كود :
Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-1);
حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ - AL-MOB4RM3G - 09-02-2009
نعم... بارك الله فيكما...
بإذن الله سأجرب هذا اليوم اثناء الفراغ في المدراسة...
وأرد عليكما خبر...
ان شاء الله...
بارك الله فيكما مرة ثانية..
حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ - AL-MOB4RM3G - 10-02-2009
نعم اخواني...
بارك الله فيكما...
حربت الآن ولله احمد ...
والآمر شغال بدون مشاكل..
بارك الله بكم ولكم
حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟ - S.FATEH - 24-03-2015
السلام عليكم يمكن
استخدام الاجراء 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;