2010年1月23日
读取数据
摘要： 代码测试procedure TForm1.Button2Click(Sender: TObject);var Field: TField; i: Integer;begin Memo1.Clear; for Field in ClientDataSet1.Fields do begin Memo1.Lines.Add(Field.Value); end; Memo1.Lines.Add(''); ... 阅读全文
posted @ 2010-01-23 12:48 岛主 阅读(177) 评论(0) 推荐(0)
2009年6月19日
Code-Test
摘要： 代码着色测试//Delphi 代码:program Project1;{$APPTYPE CONSOLE}uses SysUtils;begin try Writeln('Delphi 2009'); Readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end;end. 阅读全文
posted @ 2009-06-19 10:47 岛主 阅读(130) 评论(0) 推荐(0)