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

• #1751 Prego senior tag

  Új Válasz 2009-07-07 16:05:41 #1751

  Ú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

  

  Prego

  senior tag

  Dinamikus tömböt szeretnék átadni:

  procedure TForm1.Tombfeltolt;
  var i,Tombhossz:integer;
  begin
  Randomize;
  Memo1.Lines.Clear;
  Tombhossz := Random(100);
  Memo1.Lines.Add(IntToStr(Tombhossz)+' számú elemű tömb létrehozva');
  SetLength(T,Tombhossz);
  for I := low(t) to high(t) do
  begin
  T[i] := Random(1000);
  MEmo1.Lines.Add(IntToStr(T[i]));
  end;
  MEmo1.Lines.Add(IntToStr(i)+' elem feltöltve');
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  var Tomb:Array of Integer;
  begin
  Tombfeltolt(Tomb);
  end;

  SetLength-nél kiírja fordításnál hogy Incompatible types. Ez csak egy példaprogi, az eredetiben a Tombfeltölt egy másik Unitban van, tehát nem tudom megadni globális változóként.

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