كود أر جو منكم تحويله

السلام عليكم...

لا تستطيع التحكم في مقدار الزيادة (أو النقصان) في حلقة for في دلفي كما هو الحال مع VB، لكن يمكنك تحويل الكود السابق بأكثر من طريقة، مثلاً:

أو هكذا:

نرجو الاستفادة و السلام.

جزاكم الله خيرا....

هل هدا عيب في الحلقة فور في دلفي

لا تستطيع التحكم في مقدار الزيادة (أو النقصان) في حلقة for في دلفي كما هو الحال مع VB، لكن يمكنك تحويل الكود السابق بأكثر من طريقة،

يمكنك أستبدال الـ for بـ while على الشكل

var i : integer;
begin
   i := 0;
   while i < 200 do
   begin
	  i := i + 2;
	  showmessage(inttostr(i));
   end;
end;

هل هدا يعني ان الحلقة فور في دلفي ليست فعالة ك حلقة فور في ++C

هناك 3 حلقات في دلفي، for/repeat/while

عند تحويل كود من لغة لأخرى ليس بالضرورة ان ينسخ كما هو

وانما يترجم بفهم ما يحدث بالحلقة واعادة كتابتها باوامر اللغة المحول إليها

var
 i: integer;
begin
  i:=0;
  Repeat
	ComboBox1.Items.Add(IntToStr(i));
	inc(i,2);
  Until i>80;
end;

او

var i : integer;
begin
   i := 0;
   while i <= 80 do
   begin
	  ComboBox1.Items.Add(IntToStr(i));
	  inc(i,2);
   end;
end;

لكي تفهم جيدا لاتقارن الكود المكتوب وانما قارن الOpcode الناتج بعد Compilation

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

جزاكم الله كل خير

لي طلب آخر اخواني الكرام

كيف استعمل عبارة case of مع label1.caption

اخي توجد هناك :

function AnsiIndexText(const AText: String; const AValues: array [] of String):Integer;

الموجودة في الوحدة StrUtils

إستعمالها مع ال Label

begin
Case AnsiIndexText(Label1.Caption,['one','two','three']) of
0:ShowMessage('Label1.caption:= one');
1:ShowMessage('Label1.caption:= two');
2:ShowMessage('Label1.caption:= three');
end;

والله المستعان

المرجو من الاخوان ارفاق مثال

 

Select Case Label1.Text
			Case "label1"
				MessageBox.Show("dfgr")
			Case "jiuy"
				End
		End Select

طبقها على ماقلته لك .

وهي جد سهلة .

أخي الكريم قم بعمل محاولة و لو صغير حتى يساعدك الأخوة

الكود يوضح طريقة الأخ mohfa و المرفق كذلك

unit Unit1;

interface

uses
  // يجب إضافة المكتبة strutils يدويا
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils;

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);
begin
  case AnsiIndexText(edit1.text,['one','two','three']) of
	0 : showmessage('the text is one');
	1 : showmessage('the text is two');
	3 : showmessage('the text is three');
  end;
end;

end.

Test_Case.rar

najy_zl كتب:

أو هكذا:

انسخ الكود

1. procedure TFRtlForm1.Button1Click(Sender: TObject);
2. for I := 0 to 40 do begin
3.  
4.  
   
   

هناك خطأ صغير أخي ناجي ... انت كتبت (:=) وفي الشرط تكتب (=) فقط

جزاكم الله خيرا ..لازلت جديدا في الدلفي ولم أتعرف بعد على آلية العمل تحت بيئته

أين أجد شرحا عن الوحدة StrUtils وباقي الوحدات