\'Tøm ComboBox og Edit for værdier\'

skriv disse:

ComboBox.Checked := False;
edit1.clear;

/ZIRON

og så bare fortsæt...

ComboBox2.Checked := False;
edit2.clear;

ComboBox3.Checked := False;
edit13.clear;

ComboBox4.Checked := False;
edit4.clear;

/ZIRON

det ved jeg godt men når jeg nu har 50 ComboBox\'e og 50 edit felter så må der være en smarter måde

anold >> med Combobox mener du vel Checkbox ellers giver dit spørgsmål ikke mening ... Anyway her er en løsning :

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  aComp : TComponent;
begin
  for i:= 0 to ComponentCount-1 do
  begin
    aComp := Components[i];
    if aComp is TEdit then
      (aComp as TEdit).Text := \'\';

    if aComp is TCheckBox then
      (aComp as TCheckBox).Checked := false;
  end;
end;


Jens B http://fotx.net/borrisholt

Naturligvis mener jeg Checkbox, det var en beklaglig skrive fejl
hilsen anold