請問各位前輩:   我想要引入.cvs檔案來寫入資料庫    cvs格式如下    A1,A2   123,123   123,132   123,     >>空值(右邊為空)      ,123  >>空值(左邊為空)

 
 while not SeekEof(F1) do
       begin
         Readln(F1, S1);=>請問我要如何檢查我讀進來的值,如果兩個值其中是null就不寫入字串.
         if (i >= LineHeaderNo) and (length(S1) > 2) then begin
            AllList.Text :=AllList.Text S1;
         end;
         inc(i);
       end;

謝謝 發表人 - cd109 於 2004/12/20 13:33:58

procedure TForm1.Button1Click(Sender: TObject); var f : Textfile; str,str2,str3 : String; s : Integer; begin Memo1.Lines.Clear; AssignFile(f,'C:\TEMP\cccccc.csv'); Reset(f); while not SeekEof(f) do begin Readln(f,str); //因为csv档案的记录是用','逗号作为分隔的，所以先找到逗号的位置 //分别取逗号前后的字串数据，这样再判断是否为Nil即可。 s:=Pos(',',str); str2:=Trim(Copy(str,1,s-1)); str3:=Trim(Copy(str,s 1,Length(str))); if (str2<>'') and (str3<>'') then begin Memo1.Lines.Append(str); end; end; Closefile(f); {Closes file F} end;