Delphi заготовки

для производственных нужд часто бывает необходима программа для выявления одинаковых файлов
написать подобную программу на самом деле не представляет особого труда

определимся какая структура данных нам будет нужна


  type

  Tfilelist=record
     crcValue:Cardinal; // крк-а файла будет расчитывать функции в Unit2 данного модуля
     filename:string; // имя первого файла
     list:array of string; // список файла крк- которых сходна
     count:integer; // кол-во файлов
  end;

    var
    Filelist:array of Tfilelist; // массив файлов

    FilelistCount:integer; // кол-во найденных файлов в папке

напишем не большую процедуру добавления файла в нашу структуру




  Procedure AddFileToList(Filename:string);
  var rs,x:integer;
  crc:Cardinal; ... Читать дальше »

  // проверка IP адреса на корректность
  Function GetIP4ToInt(s:string;var Value:int64):boolean;
  Function GetIP4FromInt(Value:integer):string;
  // получить список IP адресов между adres1,adres2
  Function GetListIp(adres1,adres2:string):TstringList;

// проверка IP адреса
Function GetIP4ToInt(s:string;var Value:int64):boolean;
var b1,b2,b3,b4:int64;
    x:integer;
    s2:string;
begin

result:=false;
try
  b1:=-1;
  b2:=-1;
  b3:=-1;
  b4:=-1;
    for x:=1 to length(s) do begin
    if (s[x]='.') or (x=length(s)) then begin
    if x=length(s) then s2:=s2+s[x];
    if b1=-1 then b1:=strtoint(s2)
    else if b2=-1 then
    b2:=strtoint(s2)
    else if b3=-1 then
      b3:=strtoint(s2)
  &nb ... Читать дальше »

1. Написать процедуру обмена столбца и строки двухмерного массива.
2.  С ее помощью поменять местами те строки и столбцы, первые элементы которых совпадают.
(процедура не должна зависеть от программы - т.е. ее можно было вставить в другую программу)


 const
  MaxCount = 100;
  n=3; // кол-во элементов

type

 TMassiv=Array [1..MaxCount,1..MaxCount] of Integer; {массив элементов }

 var
   b:TMassiv;


Procedure change(var a:TMassiv;acol, arow: integer);
var
       x,y:integer;
       tm1,tm2,z:integer;
       k,m:integer;
       arow_d:array [1..MaxCount] of integer;
begin

     k:=arow;{строка}
     m:=acol;{столбец}
     {запоминаем строку }
     for x:=1 to n do&n ... Читать дальше »