(*--------------------------------------------------------------------------------*) *)
(*|Program Diziler ile Çalışmak; |*)
(*|Alper ÖZÇELİK |*) *)
(*|pri: alp_ozcelik@hotmail.com |*)
(*|sec: alper@egecom.net |*) *) *)
(*|Dizi Büyüklüklerini Çalışma zamanında dinamik birşekilde deiğştirebiliriz |*)
(*|Hiç kayıt eklemediğiniz takdirde dizi uzunluğu 0 dır. Yani uzunluğu bulunmayan|*)
(*| dizinin elemanı mevcut değildir ve erişemezsiniz. |*)
(*--------------------------------------------------------------------------------*) *)
type
TDizi=Array of String;
..
..
End;
Var
Liste : TDizi;
..
..
//-------------------------------------------
Function Ekle(Dizi: TDizi; Bilgi: String):TDizi; //Diziye yenibir kayıt ekler
Begin
SetLength(Dizi, Length(Dizi)+1);
Dizi[Length(Dizi)-1]:=Bilgi;
Result:=Dizi;
End;
Function Buyukluk(Dizi: TDizi):integer; //dizinin büyüklüğünü döndürür
Begin
Result:=Length(Dizi);
End;
//-------------------------------------------
procedure TForm1.Button1Click(Sender: TObject); //Edit nesnesindeki değeri TDizi tipindeki liste dizi değişkenine aktarır
begin
Liste:=Ekle(Liste, Edit1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject); //Liste dizi değişkeni uzunluğunu Formun başlığına aktarır
begin
Form1.Caption:=intToStr(Length(Liste));
end;
procedure TForm1.Button3Click(Sender: TObject); //Liste dizi değişkeninin her elemanını memoya aktarır
Var
i: Byte;
begin
For i:=Low(Liste) to High(Liste) Do
Begin
Memo1.Lines.Add(Liste[i]+']');
End;
end;
//iyi çalışmalar