سؤااال مهم أريد الاجاابة علية بأسرع وقت

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes,
     Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
S: STRING;
begin
S := COPY(EDIT1.TEXT,LENGTH(EDIT1.TEXT)-2,3);
SHOWMESSAGE(S);
end;

end.

ومن توصيف الوحدة المذكورة أعلاه يتبين لنا المكونات الموضوعة فيها وهي مكون من نوع Button ومكون من نوع Edit

وقد استخدمت التابع Copy والذي يعيد سلسلة نصية من سلسلة أخرى بدءاً من موقع معين وبطول معين، أي يشبه التابع Mid تماماً الموجود في Visual Basic

[عدلت بواسطة محمد عبد الودود مرعشي ت:05-03-2001 س: 06:56 AM]

الف الف شكرا على الاجاابة فقد كانت واضحة

' date= كتب:

أخوااني أخوااتي

أريد أن أستخرج اخر 3 أحرف في edit1.text من الجهة اليمنى

كيف يمكنني عمل ذلك؟

والف الف شكر لمن يجد الجواب

علما أنة يوجد هذا الكوود بالفيجيول بيسك على الشكل التالي

a=right(text1.text,3)

السلام عليكم و رحمة الله و بركاته

أختي العزيزة سارة إليك هذا الكود الذي يستخرج آخر 3 أحرف في الـ:

"Tedit Component"

...

var

s:string;

...

...

begin

..

s:=copy(edit1.text,length(edit1.text)-3,3);

..

end;