جدا سازی کارکترها

[reza_66]

سلام دوستان

لطفا راهنمایی کنید به چه طریقی می تونم تک تک کارکترهای یک نوشته رو جدا کنم و داخل یک متغییر بریزم

مثلا می خوام هر کارکتر این نوشته داخل یک متغییری ذخیره بشه:abc1f5g44rt

ممنون از دوستانی که کمک می کنند

[pezhvakco]

سلام :
این کد رو امتحان کنین :
var
Ed_Text : string; //-- رشته اصلی
Char_Text : array[1..250] of char; //-- نگه داری کاراکتر ها
I : Byte;
begin
Ed_Text:=Edit1.Text;
for I := 1 to Length(Ed_Text) do
Char_Text[I]:=Ed_Text[I];
end;

[Mask]

با سلام
اگه بخواهیم یه آرایه داینامیک تعریف کنیم به چه شکل در میاد؟

[pezhvakco]

به بینین این به کارتون می یاد :
http://barnamenevis.org/showthread.php?40356-%D8%A2%D8%B1%D8%A7%DB%8C%D9%87%E2%80%8C%D9%87%D8%A 7-%D8%AF%D8%B1-%D8%AF%D9%84%D9%81%DB%8C

[Felony]

با سلام
اگه بخواهیم یه آرایه داینامیک تعریف کنیم به چه شکل در میاد؟
var
aStr : string;
i: byte;
C : array of Char;
begin
aStr:= 'abc1f5g44rt';
SetLength(C, Length(aStr));
for i:= 0 to Length(aStr) - 1 do
C[i]:= aStr[i +1];
end;