掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストの行を、”, ”で区切って一行にするには？ (ID:38509)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ファイルの複数の改行を”, (半角空白)”に一列にしたいのですが、もっと早くなるする方法はありますか？ ポインタとか使うと早くなったりしますか？ 勉強させてください。 最終的に、10万行もあるテキストが、”, (半角空白)”で区切って、Memoに一行になればｏｋです。 //ファイルを配列に TSList.LoadFromFile(sPath); //配列分ループ for i := 0 to TSList.Count-1 do begin //sTextに足していく（10万行もあるので、後半遅くなります。 sText := sText + TSList[i] + ', '; //どれくらいで終わるか、パーセントを表示 dPercent := Round((TSList.Count -i) / TSList.Count *100); //重いので、スレッドにしちゃいました。formに進行パーセント表示 Synchronize(UpdateCaption); end; //スレッドが終わったら、スレッドクラスのプロパティ？フィールド？により、Memo1に書き出される。 全く独学なので、ここは違うとか、こうした方がいいよ、ってのでも書き込んで頂けると、うれしいです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.