كيف أترجم هذا الى لغة برمجة - نسخة قابلة للطباعة

كيف أترجم هذا الى لغة برمجة - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أترجم هذا الى لغة برمجة (/showthread.php?tid=7010)

كيف أترجم هذا الى لغة برمجة - Ramzi2 - 23-05-2015

كيف أترجم هذا الى لغة برمجة Big Grin

إذا كان خلفية لون edit5 و edit4 و edit3 و edit2 و edit1 أزرق

أكتب باللون الاخضر label 'صحيح '

والا اكتب

label باللون الاحمر 'خطأ'

يجب تحقق الشرط بلون خلفيات جميع اديت الى الازرق

ادا كانت لون اديت واحد غير الازرق لا يتحقق الشرط خطا

محاولتي ....

كود :
if Edit1.Color := clBlue then
if Edit2.Color := clBlue then
if Edit3.Color := clBlue then
if Edit4.Color := clBlue then 
begin
Label1.Caption:='OK';
Label1.Font.Color := clGreen;
end
else
begin
Label1.Caption:='NO';
Label1.Font.Color := clRed;

كيف أترجم هذا الى لغة برمجة - S.FATEH - 23-05-2015

السلام عليكم
يمكنك ذلك اذا واجهك اي اشكال اطرح سآلك لكن قبل ذلك ابحث في المنتدى
الطريقة 1

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsAllEditsBlue then
  begin
    Label1.Caption := 'Ok';
    Label1.Font.Color := clGreen;
  end else
  begin
    Label1.Caption :='NO';
   Label1.Font.Color := clRed;
  end;
end;

function TForm1.IsAllEditsBlue;
begin
  Result := True;
  if not(Edit1.Color = clBlue) then
  begin
    Result := False;
    Exit;
  end;

  if not(Edit2.Color = clBlue) then
  begin
    Result := False;
    Exit;
  end;

  if not(Edit3.Color = clBlue) then
  begin
    Result := False;
    Exit;
  end;

  if not(Edit4.Color = clBlue) then
  begin
    Result := False;
    Exit;
  end;

  if not(Edit5.Color = clBlue) then
  begin
    Result := False;
    Exit;
  end;
end; 

الطريقة 2

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsAllEditsBlue then
  begin
    Label1.Caption := 'Ok';
    Label1.Font.Color := clGreen;
  end else
  begin
    Label1.Caption :='NO';
   Label1.Font.Color := clRed;
  end;
end;

function TForm1.IsAllEditsBlue;
var
  I: Integer;
begin
  Result := True;
  for I := 0 to ControlCount - 1 do
    if (Controls[I] is TEdit) then
      if not (TEdit(Controls[I]).Color = clBlue) then
      begin
        Result := False;
        Exit;
      end;
end; 

http://delphi4arab.net/forum/showthread.php?tid=9640

كيف أترجم هذا الى لغة برمجة - SMP3 - 25-05-2015

آسف ... لقد حذفت الاجابة.
لم أنتبه لاجابة الأخ فاتح.

كيف أترجم هذا الى لغة برمجة - karika2 - 25-05-2015

تعديل فقط

كود :
if Edit1.Color = clBlue then
if Edit2.Color = clBlue then
if Edit3.Color = clBlue then
if Edit4.Color = clBlue then

begin
Label1.Caption:='OK';
Label1.Font.Color := clGreen;
end
else
begin
Label1.Caption:='NO';
Label1.Font.Color := clRed;
end;end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Color:=clBlue;
Edit2.Color:=clBlue;
Edit3.Color:=clBlue;
Edit4.Color:=clBlue;
end;

كيف أترجم هذا الى لغة برمجة - Ramzi2 - 26-05-2015

شكرا لكم جميعا

تم الحل تحياتي ..

كيف أترجم هذا الى لغة برمجة - Agmcz - 28-05-2015

بعد إذن أخي S.FATEH
إستعمال and لتفادي تحقق من كل مكون لحاله

كود :
if (Edit1.Color = clBlue) and
    (Edit2.Color = clBlue) and
    (Edit3.Color = clBlue) and
    (Edit4.Color = clBlue) and
    (Edit5.Color = clBlue) then
    Label1.Font.Color := clGreen
  else
    Label1.Font.Color := clRed;