Lazarus研究--read和readln语句的坑

Read和Readln语句能一次过读入多个变量，但对数值和字符串是不一样。

下面一次性输入三个整数

var 
	s1,s2,s3 : integer;
begin
	write('input integer s1 ,s2 ,s3 :');
	read(s1,s2,s3);
	writeln('s1=',s1,' s2=',s2,' s3=');
end;

输入时要注意，用空格、或TAB、或回车键分隔数值，只要你输入足够数量的数值，系统会正确读入3个，多了不要，但不要输入错误类型，如输入字符串，系统就会挂了。但如果你想一次性读入三个字符串，下面代码可行吗？

var 
	s1,s2,s3 : string;
	b1,b2,b3: integer;
begin
	write('input s1 s2 s3 :');
	read(s1,s2,s3);
	writeln('s1=',s1,' s2=',s2,' s3=');
end;

这样写法是永远读不到三个字符串的，无论你是用空格或TAB键分隔，永远只能读到 s1,s2和s3都是空串。要读入三个字符串，象下面这样写法也是不行的：

write('input string s1:');
read(s1);