简单问题

Question

 begin
    if bstop then break;
    readln(f, str);
    StrDomain := '';
    StrData_Type := '';
    StrContent := '';
    ITypePos := 0;
    Ipos := 0;
    if (pos(UpperCase(' CNAME '), UpperCase(str)) > 0) then
    begin
    ipos := pos('. ', str);
      if ipos > 0 then
      begin
        StrDomain := Trim(Copy(str, 1, ipos - 1));
        Delete(Str, 1, ipos + length('. '))
      end
      else StrDomain := '';
      StrData_Type := 'CNAME';
      ITypePos := pos(UpperCase(' CNAME '), UpperCase(str));
      delete(Str, 1, ITypePos + length(' CNAME ') - 1);
      StrContent := Trim(Copy(Str, 1, Length(Str) - 1));
      SaveToDataBase(StrDomain, StrData_Type, StrContent);
    end
如果我想变成,StrDomain=空的时候,这条记录不导入,要怎么修改,请指点.

Answer 1

begin 
    if bstop then break; 
    readln(f, str); 
    StrDomain := ''; 
    StrData_Type := ''; 
    StrContent := ''; 
    ITypePos := 0; 
    Ipos := 0; 
    if (pos(UpperCase(' CNAME '), UpperCase(str)) > 0) then 
    begin 
    ipos := pos('. ', str); 
      if ipos > 0 then 
      begin 
        StrDomain := Trim(Copy(str, 1, ipos - 1)); 
        Delete(Str, 1, ipos + length('. ')) 
      end 
      else StrDomain := ''; 
      StrData_Type := 'CNAME'; 
      ITypePos := pos(UpperCase(' CNAME '), UpperCase(str)); 
      delete(Str, 1, ITypePos + length(' CNAME ') - 1); 
      StrContent := Trim(Copy(Str, 1, Length(Str) - 1)); 
      if length(StrDomain) <> 0 then   
      SaveToDataBase(StrDomain, StrData_Type, StrContent);     end