精彩人生的博客

varFileName :String;fs :TMemoryStream;Filepath : String;beginFilepath :=‘C:\ListView.htm’;fs := TMemoryStream.Create;FileName :=ExtractFileName(Filepath);tryfs.LoadFromFile(FileName );savedialog1.Filter:=‘.xlsx|.xlsx’;if (savedialog1.Execute) th

今年突然发现软件频繁报错，需要退出重连，更多人头疼的是客户输入很多单据后保存不了。这个问题必须解决，后来发现是断网频繁。不说了看代码：procedure TDM.GMTemp(SQLstr: string);begin  With ADOQ_Temp do    begin      Close;        SQL.Clear;      Filter :='';

StringGrid有Selection(TGridRect)的属性StringGrid1.Selection.Left表示选择范围的左起列StringGrid1.Selection.Top表示选择范围的上起行故要得StringGrid的选择的记录，可以从StringGrid1.Selection.Top循环到StringGrid1.Selection.Bottom...