1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
| unit udeux;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons;
type
TFdeux = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
OpenDialog1: TOpenDialog;
OpenDialog2: TOpenDialog;
Edit1: TEdit;
Edit2: TEdit;
btncompareclick: TButton;
PrintDialog1: TPrintDialog;
PrinterSetupDialog1: TPrinterSetupDialog;
btncompare2: TButton;
Memo3: TMemo;
Memo4: TMemo;
btnrechercherfichieroldFile: TBitBtn;
btnrechercherNewFile: TBitBtn;
btnReset: TButton;
SaveDialog1: TSaveDialog;
btnChangements: TBitBtn;
LabelAdd: TLabel;
LabelMinus: TLabel;
SaveDialog2: TSaveDialog;
procedure btncompareclickClick(Sender: TObject);
procedure btnrechercherfichieroldFileClick(Sender: TObject);
procedure btnrechercherNewFileClick(Sender: TObject);
procedure btnResetClick(Sender: TObject);
procedure btnChangementsClick(Sender: TObject);
procedure CompareStringLists(List1, List2: TStringList; Missing1, Missing2: TStrings);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Fdeux: TFdeux;
Fichier1, Fichier2 : TextFile ;
Nom1, Nom2 : String ;
Ligne1, Ligne2 : String ;
i, j : Integer ;
list1, list2 : string;
implementation
{$R *.dfm}
procedure TFdeux.btnrechercherfichieroldFileClick(Sender: TObject);
begin
OpenDialog1.Execute;
AssignFile(fichier1,OpenDialog1.FileName);
Edit1.Text := OpenDialog1.FileName
end;
procedure TFdeux.btnrechercherNewFileClick(Sender: TObject);
begin
OpenDialog2.Execute;
AssignFile(fichier2,OpenDialog2.FileName);
Edit2.Text := OpenDialog2.FileName;
btncompareclick.Visible:=true;
btncompare2.Visible:=true;
end;
procedure CompareStringLists(List1, List2: TStringList; Missing1, Missing2: TStrings);
var
i, j : Integer ;
begin
List1.Sort;
List2.Sort;
I := 0;
J := 0;
while (I < List1.Count) and (J < List2.Count) do
begin
if List1[I] < List2[J] then
begin
Missing2.Add(List1[I]);
Inc(I);
end
else if List1[I] > List2[J] then
begin
Missing1.Add(List2[J]);
Inc(J);
end
else
begin
Inc(I);
Inc(J);
end;
end;
for I := I to List1.Count - 1 do
Missing2.Add(List1[I]);
for J := J to List2.Count - 1 do
Missing1.Add(List2[J]);
end;
procedure TFdeux.btncompareclickClick(Sender: TObject);
var
List1: TStringList;
List2: TStringList;
begin
List1 := TStringList.Create;
List2 := TStringList.Create;
AssignFile(fichier1,OpenDialog1.FileName);
Begin
AssignFile(fichier2,OpenDialog2.FileName);
Begin
Nom1 := OpenDialog1.FileName ;
Nom2 := OpenDialog2.FileName ;
end;
end;
try
List1.LoadFromFile(Edit1.Text);
List2.LoadFromFile(Edit1.Text);
Memo2.Lines.Assign(List1);
Memo3.Lines.Assign(List2);
CompareStringLists(List1, List2,Memo2.Lines, Memo3.Lines);
finally
List2.Free;
List1.Free;
end;
end;
{ //chgt à faire en fonction du stringlist
procedure TFdeux.btnChangementsClick(Sender: TObject);
var lineSup: string;
var lineLess: string;
begin
if SaveDialog1.Execute then
begin
lineSup := SaveDialog1.FileName;
Memo3.Lines.SaveToFile(lineSup);
end;
if SaveDialog2.Execute then
begin
lineLess :=SaveDialog2.FileName;
Memo2.Lines.SaveToFile(lineLess);
end;
end;
}
end. |
Importer un fichier .txt
Répondre avec citation
... .
Envoyé par bm1990
c'est que tu manques de connaissance de traitement sur les fichiers text et comme il a oublié d'indiquer le lien c'est sur que c'est moins évident encore 
Partager