حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟

[AL-MOB4RM3G]

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

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

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

[TF6M]

أولا أكتب هده الدالة في قسم التنفيد 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); 


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

[AL-MOB4RM3G]

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

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

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

[AL-MOB4RM3G]

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

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

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

[S.FATEH]

السلام عليكم يمكن
استخدام الاجراء 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;