Degisken tanımlama

[korendon1971]

Herkese iyi günler....
Benim 2 sorum olacaktı.
1)Ben degiskeni sadece bir procedure veya function da kullanmak istiyorum.
örnek

function ornek:integer;
var
kume:array[1..3]of set of byte;
begin
burdaki kumeyi bosaltmak için
kume[1]:=[];kume[2]:=[];kume[3]:=[]; yada donguyle
end;
yani diger procedurlerde kullanmadigım için ustteki var bloguna yazmadım.

yada functionun ustune var tanımlıyorum.

var
kume,boskume:array[1..3]of set of byte;

function ornek:integer;
begin
kumeyi bosaltmak icin boskumeyi kullanıyorum.
kume:=boskume;
end;
Bu boskume gereksiz yer tutmazmı?mantıklımıdır?Baska yapabilecegim yontem varmıdır?

2.sorum
ben richedit comp. kullanamıyorum.Line insertion error hatası veriyor.
bu nedemektir? Tesekkur ederim. Saygılarla....

[lazio]

1.
function ornek:integer;
var
kume:array[1..3]of set of byte;
begin
end;

burda küme değişkenini yerel olduğu için, fonksiyondan çıkınca zaten boşalacaktır.

[aslangeri]

s.a.
fillchar komutunu kullanabilirsin.
kolay gelsin.