摘要:
代码测试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(''); ... 阅读全文
摘要:
代码着色测试//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. 阅读全文