ListView データを効率よく読み込むには (ID:17361)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

なにかいいパッチあったら  よろしく  お願いします。

とりあえず  外部からロードできるようにしたので解決にしておきます。

こんなので  とりあえず
読み込んで  
 対応しました・・・・
    一応かなりデータは123で手作業でわかる範囲で復旧しましたが・・
    データが消えた  痛い・・・
        しょっくで寝れないかもしれません(;_;)

FormCreate(Sender: TObject);
    TempStrList , CSVStrList : TStringList;
    aListItem : TListItem;
    i ,j  : integer;
-----------
  TempStrList := TStringList.Create;
  try
    try
      TempStrList.LoadFromFile(ExtractFilePath(ParamStr(0))+
                 'ノードリスト.csv');
          // ※ Excelだとバグで csvに "" がつかないので  lotus123で保存する
      CSVStrList := TStringList.Create;
      try
        for i := 0 to TempStrList.Count-1 do
        begin
          CSVStrList.CommaText := TempStrList[i];
          if Length(CSVStrList.Text)=0 then Continue;
          aListItem := ListView1.Items.Add;
          for j := 0 to CSVStrList.Count -1 do
            case j of
              0 : aListItem.Caption := CSVStrList[j];
              else
                aListItem.SubItems.Add(CSVStrList[j]);
            end;
        end;
      finally
        CSVStrList.Free;
      end;
    except
    end;
  finally
    TempStrList.Free;
  end;

←解決時は質問者本人がここをチェックしてください。

戻る