[Alegun]

Немного G-кода

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
 sl1, sl2, sl3: TStrings;
 flg: boolean;
begin
 sl1:= TStringList.Create;
 sl2:= TStringList.Create;
 sl3:= TStringList.Create;
 sl1.LoadFromFile('1.txt');
 sl2.LoadFromFile('2.txt');
for i := 0 to sl1.Count - 1 do
 begin
  flg:= true;
  for j := 0 to sl2.Count - 1 do
   if sl1.Strings[i] = sl2.Strings[j] then flg:= false;
  if flg then sl3.Add(sl1.Strings[i]);
 end;
sl1.Free;
sl2.Free;
sl3.SaveToFile('1.txt');
sl3.Free;
end;