как использовать IdDecoderXXE в stringgrid

[alman12]

как использовать IdDecoderXXE и IdEncoderXXE в stringgrid ?

я сделал но при загрузке не расшифроется

procedure Save(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:    TextFile;
   i, k: Integer;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
 end;


procedure TForm1.Save1Click(Sender: TObject);
var i,j :integer;
begin
if SaveDialog1.Execute then
begin
 with StringGrid1 do
for i:=0 to RowCount-1 do
for j:=0 to ColCount-1 do
Cells[i,j]:=idencoderxxe1.Encode(Cells[i,j]);

end;
Save(StringGrid1, SaveDialog1.FileName);
end;



procedure Load(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;


procedure TForm1.N3Click(Sender: TObject);
var i,j:integer;
begin
if OpenDialog1.Execute then
load(StringGrid1, openDialog1.FileName);
with StringGrid1 do
begin
for i:=0 to RowCount-1 do
for j:=0 to ColCount-1 do
Cells[i,j]:=iddecoderxxe1.DecodeString(Cells[i,j]);
end;
end;

Триста с лишним сообщений, а до сих пор не научился код правильно оформлять
Модератор

[alman12]

не кто не ответит мне ?

почему меня штрафовали ?

[Stilet]

не кто не ответит мне ?

Во-первых: Найучись наконец то общаться нормально.
Во-вторых: Что значит "не расшифроется"? Не выполняется расшифровка? выходят кракозяблики? Выдает ошибку? Мне спрашивать у тебя, делал ли ты пошаговку в программе, или как обычно тебе работать с отладчиком религия не позволила?

почему меня штрафовали ?

Модератор же написал за что - почитай внимательно красным текст.

Вот запусти у себя такой код:

var e:TIdEncoderXXE; d:TIdDecoderXXE; s:string;
begin
 e:=TIdEncoderXXE.Create(nil);
 d:=TIdDecoderXXE.Create(nil);
 s:=e.EncodeString('Hello World'); ListBox1.Items.Add(s);
 s:=d.DecodeString(s); ListBox1.Items.Add(s);
 e.Free; d.Free;
end;

Что он тебе выдаст?