摘要:
1、edit控件没有垂直滚动条,改用memo控件,设置sScrollBars=ssVertical2、procedure TForm1.Button1Click(Sender: TObject);var f: TextFile; s,sFileName: string;begin sFileName :='c:\1.sql'; AssignFile(f, sFilename); Reset(f); while not Eof(f) do begin Readln(f, s); Memo1.Lines.Add(s) ; end; ...
阅读全文