掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
1行読み込んである変数を基準にしたソートのコードを教えてください (ID：1674)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TStringList の CustomSort を使えば、簡単にできすます。 function MySort(List: TStringList; Index1, Index2: Integer): Integer; begin Result := CompareStr(Copy(List[Index1], 5, 6), Copy(List[Index2], 5, 6)); end; procedure TForm1.Button1Click(Sender: TObject); var str:TStringList; begin str:=TStringList.Create; str.LoadFromFile('FILE1.TXT'); str.CustomSort(MySort); str.SaveToFile('FILE2.TXT'); str.Free; end; １行目の A B C D E F や、最後の、 EOF という行があるのなら先に削除してからソートしてください。 >Classを使わないコード とは、TList、TFileStream 等のクラスも使わないでということですか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.