Convertir un fichier dfm en fichier binaire/texte

A partir de Delphi 5, les fichiers DFM sont stockés en format texte.
Pour pouvoir les utiliser en Delphi 2 à Delphi 4, il faut les convertir en format binaire.

// Converting from *.DFM to *.TXT
Convert.exe FormMain.dfm FormMain.txt

// Converting from *.TXT to *.DFM
Convert.exe FormMain.txt FormMain.dfm

Truc|Déplacer les lignes dans un Listbox

procedure TForm1.Button1Click(Sender: TObject); //move item up
var
aktindex:Integer;

begin
if ListBox1.ItemIndex > 0 then
begin
aktindex:=ListBox1.ItemIndex;
ListBox1.Items.Move(ListBox1.ItemIndex,(aktindex - 1));
ListBox1.ItemIndex:=aktindex - 1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject); //move item down
var
aktindex:Integer;
lastindex:Integer;

begin
aktindex:=ListBox1.ItemIndex;
lastindex:=ListBox1.Items.Count;
if ListBox1.ItemIndex <> -1 then
begin
if aktindex + 1 < lastindex then
begin
ListBox1.Items.Move(ListBox1.ItemIndex,(aktindex + 1));
ListBox1.ItemIndex := aktindex + 1;
end;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1950 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur