ECRITURE ET TRI FICHIER

Réponse acceptée !
Salut,

@Cantador:
le problème ici est que ce n'est pas un vrai fichier INI ... bien qu'il en ait l'aspect ce n'en est pas un ^^

voici une solution qui est adapté au problème de Didou2dek:
ps: le fichier texte est déjà chargé dans le TMemo
{-------------------------------------------------------------------------}
{ Project : Demo.dpr                                                      }
{ Comment : Tri une partie d'un fichier texte                                                              }
{                                                                         }
{    Date : 29/10/2008 13:22:30                                           }
{  Author : Cirec                                                         }
{-------------------------------------------------------------------------}
{ Last modified                                                           }
{    Date : 29/10/2008 13:22:30                                           }
{  Author : Cirec                                                         }
{-------------------------------------------------------------------------}
unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tfrm_Main = class(TForm)
    Memo1: TMemo;
    btn_Sort: TButton;
    procedure btn_SortClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  frm_Main: Tfrm_Main;
procedure SortListBetween(aStart, aStop: Integer; aList: TStrings); overload;
procedure SortListBetween(aStart, aStop: string; aList: TStrings);  overload;

implementation

{$R *.dfm}
procedure ExchangeInt(var aStart, aStop: Integer);
var TmpInt: Integer;
begin
  TmpInt := aStart;
  aStart := aStop;
  aStop := TmpInt;
end;

procedure SortListBetween(aStart, aStop: Integer; aList: TStrings);
var
  TmpList: TStringList;
  iI: Integer;
begin
  {Il faut au moins 2 entrée sinon on sort}
  if aList.Count < 2 then Exit;
  {Vérification des limites}
  if aStart > aStop then
    ExchangeInt(aStart, aStop);
  if aStop > aList.Count then
    aStop := aList.Count;
  if aStart < 0 then
    aStart := 0;
  {Début du tri}
  TmpList := TStringList.Create;
  try
    aList.BeginUpdate;
    with TmpList do
    begin
      Sorted := True;
      for iI := aStop-1 downto aStart+1 do
      begin
        Add(aList[iI]);
        aList.Delete(iI);
      end;
      for iI := Count-1 downto 0 do
        aList.Insert(aStart+1, Strings[iI]);
    end;
  finally
    TmpList.Free;
    aList.EndUpdate;
  end;
end;

procedure SortListBetween(aStart, aStop: string; aList: TStrings);  overload;
begin
  SortListBetween(aList.IndexOf(aStart), aList.IndexOf(aStop), aList);
end;

procedure Tfrm_Main.btn_SortClick(Sender: TObject);
begin
  SortListBetween('[PLANNING]', '[FIN]', Memo1.Lines);
  //SortListBetween('[FIN]', '[PLANNING]', Memo1.Lines);
end;

end.


 
@+
Cirec

---