精彩人生的博客

var FileName :String; fs :TMemoryStream; Filepath : String; begin Filepath :=‘C:\ListView.htm’; fs := TMemoryStream.Create; FileName :=ExtractFileName(Filepath); try fs.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 ...