エラーは、Delphi 5

Question

を使用してCSVファイルを読み込むには、私は、Delphi 5

ファイルの内容は、私が

var 
    respCSV : TStringList ; 
    sLine : string ; 
    tf : TextFile; 
begin 
    respCSV := TStringList.Create ; 
    // prompt the user for a file-name then load into a string list 
    with openDialog1 do 
    begin 
    FileName := ''; 
    if Execute then 
    begin 
     AssignFile(tf, FileName); 
     Reset(tf); 
     while not eof(tf) do 
     begin 
     sLine := '' ; 
     ReadLn(tf,sLine); //In Debug/Evaluate it shows 2nd row perfectly 
     showMessage(sLine); //but in showMessage Here 2nd row is showing as 
     //null, While it has nulls only in start 
     respCSV.Add(sLine); //Adding 2nd row as empty row 

     end; //end while 
    end;//end if 
    end;//end with 

を読み取るために、次のコードを使用しています

1. a,b,c,d //1st line 
2. ,,,,e,f //2nd line 
3. n,d,e,f //3rd line 
4. a,c,e //4th line 

ある使用してCSVファイルの読み込みに問題が生じています

ファイルの2番目の行はヌルで始まります。,,,, e .. foo ..すべての行をヌルとして表示しています

Answer 1

ファイルが存在しています正しく読んでください。文字列変数sLineはフルラインを保持します。ただし、ShowMessageはNULL文字（#0）をターミネータとして扱い、それ以外の文字は表示しません。

したがって、コードを読み込むには何も問題はありません。 sLineを空の文字列に初期化するのは、次の行に割り当てるため、無意味です。そして、あなたがそれを読み終えたら、ファイルを閉じることはありません。