unit U; function main: string; var SS: TStringList; begin SS := TStringList.Create; SS.Add('Line 0'); Result := SS[0]; SS.Free; end; end.
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机