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

[Ramzi2]

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

إذا كان خلفية لون 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]

السلام عليكم
يمكنك ذلك اذا واجهك اي اشكال اطرح سآلك لكن قبل ذلك ابحث في المنتدى
الطريقة 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]

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

[karika2]

تعديل فقط

كود :

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]

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

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

[Agmcz]

بعد إذن أخي 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;