HomeWork_08 تمرين تطبيقي

[Dr.MOT]

السلام عليكم ,,

مممم لا أعرف كيف أعبر عنها ,, لكن هي تنظيم الأوامر بين البلوك ,,

بحيث تكون :

PHP كود :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if Edit1.Text='Delphi4Arab' Then
  begin
    ShowMessage('Hi Programmer''s');
    Edit1.Text:='www.Delphi4Arab.com';
    Form1.Caption:='Hello';
  end;
end; 


بدلا من :

PHP كود :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Edit1.Text='Delphi4Arab' Then
begin
ShowMessage('Hi Programmer''s');
Edit1.Text:='www.Delphi4Arab.com';
Form1.Caption:='Hello';
end;
end; 


بالتوفيق