جداکردن حروف در یک رشته استرینگ

[nightHunter]

سلام

یک رشته استرینگ دارم مثلا : b707 یا هر چیزی شبیه به این چطوری میتونم این حروف رو تک تک از رشته استرینگ جدا کنم ؟ مثلا در یک حلقه ؟

متشکرم .

[Saeed_m_Farid]

به اعضاء آرایه ات نگاه کن :

procedure TForm1.Button1Click(Sender: TObject);
var
idx: Integer;
begin
for idx := 1 to Length(Edit1.Text) do
Memo1.Lines.Add('Text['+IntToStr(idx)+'] = '+Edit1.Text[idx])
end;

[vcldeveloper]

اگر دلفی 2007 یا 2009 باشه، از این ساده تر هم میشه:


var
Ch: Char;
begin
for Ch in Edit1.Text do
ShowMessage(Ch);
end;