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

• #635 killerjohn addikt Robiba #623

  Új Válasz 2005-03-11 12:43:54 #635

  Ú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

  

  killerjohn

  addikt

  válasz Robiba #623 üzenetére

  Ez nem fog menni, mivel ciklusváltozó nem lehet, csak lokális...
  
  Így már jobb :
  
  Var Tomb : array [0..3] of String = ('Edit1','Edit2','Edit3','Edit4');
  
  Procedure TForm1.Button1Click(Sender: TObject);
  Var i1 : Integer;
  Begin
  
  For i1 := 0 To 3 Do
  Begin
  (FindComponent(Tomb[i1]) as TEdit).Text := 'Akármi';
  End;
  
  End;
  
  
  [Szerkesztve]

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