08-02-2009, 07:42 PM
أولا أكتب هده الدالة في قسم التنفيد 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;****ا أن تفيدك ؟