Új hozzászólás Aktív témák

• #623 Robiba tag johnson #622

  Új Válasz 2005-02-24 13:39:14 #623

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Robiba

  tag

  válasz johnson #622 üzenetére

  var
  Form1: TForm1;
  i1, i2:integer;
  tomb:array [0..3] of string = ('Edit1','Edit2','Edit3','Edit4');
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  for i1:=0 to 3 do begin
  for i2:=0 to Form1.ComponentCount-1 do begin
  if (Components[i2].Name=tomb[i1]) and (Components[i2] is TEdit) then begin
  (Components[i2] as TEdit).Text:='Akármi';
  break;
  end;
  end;
  end;
  end;

Új hozzászólás Aktív témák