temp.txt

来自「公交行业的管理系统」· 文本 代码 · 共 11 行

procedure TBusCorMainFm.FormShow(Sender: TObject);
begin
if FileExists(dirstr+'\'+'water.jpg') then
       begin
       image1.Picture.LoadFromFile(dirstr+'\'+'water.jpg');
     end;

end;


dirstr:string;