Dinamik Array

[cdmesut]

merhaba arkadaşlar.
ben delphide bir array string dğeişkeni oluşturmak istiyorum mesela deneme isminde

edit1 kutusuna girdiğim yazının mesela 'mesut' girdim .. arrayda tanımladığım deneme değişkeni şöyle olamsını istiyorum
deneme[0]:="m"
deneme[1]:="e"
deneme[2]:="s"
deneme[3]:="u"
deneme[4]:="t"

bu indislere otomatik aktarmasını istiyorum.. her edite yazdığım zaman kendisi yapacak.

bunu nasıl yaparım..
teşekkür ederim.

[ikra]

Kod: Tümünü seç

var
  deneme: Array of String;

procedure TForm1.Yapistirrrrrrrrrrrrrrrrrrrr;
var i: integer;
      s: string;
begin
  s := Edit1.Text;
  setLength(deneme, Length(s);
  for i := 1 to Length(s) do
    deneme[i] := s[i];
end;

[Lost Soul]

deneme[i-1] := s;

[qamyoncu]

Setlength(deneme, length(s));

[ikra]

is yerinden kacamak cevap verince, eksikler oluyor tabii.
o kadar catlak su kacirmaz haci : ))