[Error] 'OF' expected but '[' found

[metemete]

Kod: Tümünü seç

Procedure liste_sec(P1:string;var veri1:Variant;veri2:Variant;veri3:Variant);
begin
...
end

yerine

Kod: Tümünü seç

Procedure liste_sec(P1:string;var veri:Array[0..10] of Variant);
begin
...
..
end;

array kullanınca hata veriyor?

[Error] Unit1.pas(69): 'OF' expected but '[' found

[emin_as]

Procedure liste_sec(P1:string;var veri:Array[0..10] of Variant);


Tanımını aşagıdaki gibi değiştir:

Kod: Tümünü seç

Procedure liste_sec(P1:string;var veri:Array  of Variant);
var
  i : integer;
begin
    for i:=low(veri) to high(veri) do
    begin
       veri[i]:=5;  // işlemin neyse
    end; 
end;

[aslangeri]

s.a.
dizileri parametre olarak geçmek için önce diziyi bir tip olarak tanımlamanız parametreleri de tanımladığınız tipte berlitmeniz gerekmektedir.
şöyle bişey yapacaksınız yani

Kod: Tümünü seç

type
  parametretipi=Array[0..10] of Variant;
..............
Procedure liste_sec(P1:string;var veri:parametretipi);
begin
...
..
end;

birde başlığı "procedure parametresine dizi tanımlama" gibi bişeyle değiştirirsen daha iyi olur gibime geliyor.
kolay gelsin.

[metemete]

sağolun cok tşk ederimmm