掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringListの中に重複する文字列があるか検索するには？ (ID:39165)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
３番目のデータしか重複チェックをしない場合こんな感じか？ あとテキストエディタで書いたのでスペルミスとかあるかも var t,ts,tc : TStringList; i : Integer; s : string; begin t := TStringList.Create; // カンマ区切り分解用 ts := TStringList.Create; // CSVファイル読み込み用 tc := TStringList.Create; // 重複チェック用 try ts.LoadFromFile('test.csv'); // CSVを読み込んだとする for i := 0 to ts.Count-1 begin // 行数分ループ t.Commatext := ts[i]; // カンマ区切りで分解 s := t[2]; // ３番目のデータを取り出す if tc.IndexOf(s) <> -1 then begin // 重複している場合 // ここに重複時の処理を書く end; tc.Add(s); // 重複チェックリストに追加 end; finaly tc.Free; ts.Free; t.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.