//取得字符串中指定的字符 procedure TForm1.Button1Click(Sender: TObject);var mystr:string;begin mystr:='Delphi7'; showmessage(mystr[3]);end;