فتح الملف النصي لـ Virement CCP في StringGrid

PHP كود :

function Cle(const  Type_Cle, Compte_CCP: string): string;
var
  I: Byte;
begin
  Result := '0';

  if Type_Cle = 'RIP' then begin

     for I := Length(Compte_CCP) downto 1 do
     Result := IntToStr( StrToInt(Result) + StrToInt(Compte_CCP[I]) * (Length(Compte_CCP) - I + 4) );
     result := IntToStr( StrToInt(Result) mod 100 );

  end;

  if Type_Cle = 'OLD' then begin

  result :=IntToStr(  97 - ((((StrToInt(Compte_CCP) mod 97) * 3 mod 97) + 85) mod 97)   );

  end;


   if Length(Result) = 1 then  Result :=  '0'+  Result;

end;

PHP كود :

  Edit4.Text :=  Cle('RIP',Edit3.Text) ;
  Edit5.Text :=  Cle('OLD',Edit3.Text) ;

PHP كود :

type
 TextRecord = record
 COMPTE,CLE,NOM_PRENOM: string;
 MONTANT: real;
end;

PHP كود :

function LireText (const LigneTexte: string): TextRecord;
begin

 result.COMPTE := intTOstr(strTOint( copy(LigneTexte,10,10) ));
 result.CLE := copy(LigneTexte,20,2);
 result.MONTANT := strTOfloat(copy(LigneTexte,22,13)) / 100;
 result.NOM_PRENOM := Trim(  copy(LigneTexte,35,27)  );

end;

PHP كود :

    StringGrid1.Cells[1,i] := LireText(ligne).COMPTE ;

PHP كود :

result :=IntToStr(  97 - ((((StrToInt(Compte_CCP) mod 97) * 3 mod 97) + 85) mod 97)   );

كود :

type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
      ExcelFile,sheet : Variant;
      procedure OpenExcelFile;


  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
Var

     MaxRow, MaxCol,i,j:Integer;
begin
   OpenExcelFile;
   MaxRow := Sheet.Usedrange.Rows.count ;
  MaxCol := sheet.Usedrange.Columns.count;
  stringgrid1.RowCount:=maxRow+1;
  StringGrid1.ColCount:=maxCol+1;
  for I := 1 to MaxCol do
  begin
    for j := 1 to MaxRow do
    begin
     stringgrid1.Cells[i,j]:=excelfile.cells[j,i].value;

    end;

  end;
 ExcelFile.workbooks.close;
 ExcelFile.quit;
 ExcelFile:=Unassigned;
end;

procedure TForm3.Button2Click(Sender: TObject);
var f: TextFile;
    i: Integer;
begin
  AssignFile(f,'d:\1.txt');
  Rewrite(f);
  with StringGrid1 do
  begin
    for i := 1 to RowCount - 1 do
    begin
        Write(F, '*'+Cells[1, i]);
         Write(F, format('%s',cells[2, i]));
          Write(F, Cells[3, i]);
           Write(F, Cells[4, i]);
            Write(F, Cells[5, i]);
           writeln(f);

    end;
  end;
  CloseFile(F);
end;

procedure TForm3.OpenExcelFile;
begin
   ExcelFile := CreateOleObject('Excel.Application');
   ExcelFile.visible:=0;
   ExcelFile.Workbooks.Open('C:\Users\HAT\Desktop\book1.xls');
   sheet := ExcelFile.WorkSheets[1];
end;
end.

كود :

edit1.Text := StringOfChar('0',18-length('11111')) + '11111'

كود :

Cells[4, i],' ':27- length(Cells[4, i]),1);

كود :

  AssignFile(f,'d:\1.txt');
  Rewrite(f);
  with StringGrid1 do
  begin
    for i := 1 to RowCount - 1 do
    begin
    Write(F,'*00799999',stringofchar('0',10- length(Cells[2, i]))+Cells[2, i],cells[3, i],stringofchar('0',10- length(Cells[5, i]))+Cells[5, i],Cells[4, i],' ':27- length(Cells[4, i]),1);
    writeln(f);
    end;
  end;
  CloseFile(F);