主题：问几个问题（＋分）
fxzxg
[专家分：430] 发布于 2006-01-29 10:05:00
1、在pascal中怎样读入声音（用话筒）？
2、在pascal中怎样播放音频文件？
3、在pascal中怎样调用外部程序？
4、在pascal中怎样使用打印机？
5、在pascal中怎样建立文件夹？
6、在pascal中怎样判断一个文件是否存在？
回复列表 （共9个回复）
沙发
小田甜 [专家分：3910] 发布于 2006-01-30 14:32:00
3:调用外部程序
uses dos;
procedure cmd(PathName:string);
begin
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C MD ' + PathName);
SwapVectors;
end;
5:建立文件夹
procedure md(PathName:string);
begin
cmd('MD '+PathName);
end;
板凳
小田甜 [专家分：3910] 发布于 2006-01-30 14:37:00
6：判断一个文件是否存在
uses dos;
function exist(PathName:String):boolean;
var
S: PathStr;
begin
S := FSearch(PathName,GetEnv(''));
exist := S <> '';
end;
3 楼
小田甜 [专家分：3910] 发布于 2006-01-30 17:29:00
关于４：
你该不会是说在编程界面的吧
点File菜单下的Print选项即可
4 楼
fxzxg [专家分：430] 发布于 2006-01-31 09:13:00
是
5 楼
贺天行宝 [专家分：2300] 发布于 2006-02-07 10:19:00
hehe要用库单元了呢
6 楼
贺天行宝 [专家分：2300] 发布于 2006-02-07 10:19:00
ABS(X) F 求变量的绝对值ADDR(X) F 测变量地址APPEND(F) P 打开一个存在的文本文件，并将文件指 针指向文件末尾准备添加元素ARCTAN(X) F 反正切ASSIGN(F,C) P 将字符串C所表示的外部文件名赋给文 件变量FASSIGNED(X) P 测试程序当中的指针或变量是否为空BLOCKREAD(F,D,NUM) P 读类型文件。BLOCKWRITE(F,D,NUM) P 写无类型文件BREAK P 中止或结束循环CHDIR(PATH) P 改变当前目录CHR(X) F 求ASCII码值为X的字符CLOSE(F) P 关闭文件CONCAT(S1,S2...S3） F 字符串合并CONTINUE P 继续循环COPY(S,POS,LEN) F 返回一个字符串的子串COS(X) F 余弦函数CSEG F 返回CS寄存器的当前值DEC(X) F X:=X-1DELETE(S,POS,LEN) P 删除一个字符串的子串DISPOSE(P) P 释放一个动态变量DSEG F 返回DS寄存器的当前值EOF(F) F 判断文件是否结束EOLN(F) F 判断文件类型中的一行是否结束ERASE(F) P 删除一个存在的外部文件。EXIT P 过程中止
7 楼
贺天行宝 [专家分：2300] 发布于 2006-02-07 10:19:00
ABS(X) F 求变量的绝对值ADDR(X) F 测变量地址APPEND(F) P 打开一个存在的文本文件，并将文件指 针指向文件末尾准备添加元素ARCTAN(X) F 反正切ASSIGN(F,C) P 将字符串C所表示的外部文件名赋给文 件变量FASSIGNED(X) P 测试程序当中的指针或变量是否为空BLOCKREAD(F,D,NUM) P 读类型文件。BLOCKWRITE(F,D,NUM) P 写无类型文件BREAK P 中止或结束循环CHDIR(PATH) P 改变当前目录CHR(X) F 求ASCII码值为X的字符CLOSE(F) P 关闭文件CONCAT(S1,S2...S3） F 字符串合并CONTINUE P 继续循环COPY(S,POS,LEN) F 返回一个字符串的子串COS(X) F 余弦函数CSEG F 返回CS寄存器的当前值DEC(X) F X:=X-1DELETE(S,POS,LEN) P 删除一个字符串的子串DISPOSE(P) P 释放一个动态变量DSEG F 返回DS寄存器的当前值EOF(F) F 判断文件是否结束EOLN(F) F 判断文件类型中的一行是否结束ERASE(F) P 删除一个存在的外部文件。EXIT P 过程中止EXP(X) F 以E为底的指数函数FILEPOS(F) F 文件记录的当前位置FILESIZE(F) F 文件记录数FILLCHAR(D,LEN,DATE) P 填充数值或字符FLUSH(F) P 清空文件缓存区FRAC(X) F 取实形变量的小数部分FREEMEM(P,I) P 释放变长动态变量GETDIR(DRV,PATH) P 取当前盘，当前目录GETMEM(P,I) P 分配变长的动态变量，并把块地址存放在一个指针变量中HALT P 立即中止程序执行，返回TP编辑器或DOSHI(I) F 返回一个变量的高位字节INSERT(S,D,POS) F 在一个字符串中某一位置开始插入一个子串INT F 取整数部分IORESULT F 返回最后一次输入/出操作的结果状态LENGTH(S) F 取字符串的长度LN(R) F 求自然对数LO(I) F 返回一个变量的低位字节MAXAVAIL F 返回最大内存空间MEMAVAIL F 返回可用内存数目MKDIR(PATH) P 建立一个子目录MOVE(S,D,LEN) P 快传送
NEW(P) P 建立一个新的动态变量
ODD(X) F 判断一个变量的值是否为奇数
OFS(X) F 侧变量偏移地址
ORD(CH) F 求一个字符的ASCII码值
PARAMCOUNT F DOS参数串长度
PARAMSTR(N) F DOS参数串
PI F 圆周率的值
pos(str1,str2) f 测一个字符串中包含的另一个子串的开始位置
pred(x) f 求前驱
ptr(i) f 指针赋值
random f 返回0~1之间的随机实数
randomize p 初始化随机数发生器
read/readln(f,x) p 读入/输入数据
rename(f,str) p 给一个外部文件改名
8 楼
贺天行宝 [专家分：2300] 发布于 2006-02-07 10:20:00
reset(f) p 打开文件，并将文件指针指向开始，并准备读数据
rewrite(f) p 打开文件，并将文件指针指向开始，准备写资料
rmdir(path) p 删除一个子目录
round(x) f 求实数的近似数
runerror p 停止程序的运行
scrollto p 滚动显示窗口的某部分内容
seek(f,n) p 将文件指针定位于文件f的第n个文件成分上
seekrof(f) f 定位到文件尾
seekroln(f) f 定位到行尾
seg(n) f 测变量段地址
settextbuf(f) p 将输入/出缓冲区与一个文本文件建立关联
sin(x) f 正弦函数
sizeof(x) f 测变量大小
sptr f 返回sp寄存器的当前值
sqr(x) f 平方
sqrt(x) f 平方根
sseg f 返回ss寄存器的当前值
str(i,s) f 将一个整数转换成字符串
succ(X) f 后继函数
swap(x) f 交换一个变量的高位和低位字节
trunc(x) f 截去实数的小数部分
truncate(f) p 截去文件当前指针以后的内容
upcase(ch) f 将小写字母转换成大写字母
val(s,r,p) p 将一个字符串转换成数值
writeln(f,x) p 输出
9 楼
贺天行宝 [专家分：2300] 发布于 2006-02-07 10:20:00
这是榕树上一个高手告诉我的
大家觉得有用就谢他把！
我来回复
您所在位置：