如何清空一个字符串，并且判断一个字符串是否为空？

Question

如题

Answer 1

str :='';//清空if str ='' then showmessage('空串');

Answer 2

if varisnull(str) then showmessage('wu');

Answer 3

var 
s:string;
begin
if s='' then
 showmessage('是空的哦')
 else 
 showmessage(s);

Answer 4

var a:array of string;if high(a)=-1 then //没有设置数组，没有字符setlenght(a,1) //设置数组大小//如果要检测数组中字符串，那就遍历数组
for i:=low(a) to high(a) do
  if a[i]='' then //没有字符串

Answer 5

如果要把一个数组清空就用setlenght(a,-1)?

Answer 6

s:='';清空字符串
length(s)=0 字符串未空的判断

Answer 7

判断是否为空
if length(s)=0 then
清空
s:='';