temp.txt

公交行业的管理系统

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

end;


dirstr:string;