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

[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