Discussion :

[nico0007]

Bonjour,

Quelle est la syntaxe de la fonction qui me permettrait de charger un fichier dans une StringGrid?

Mon fic est le suivant:
44 49 41 10 61 05 06 10 10 00 01 00 86 00 00 01
00 00 00 00 45 54 41 20 45 53 30 32 20 20 69 05
09 21 13 31 91 2e ff 96 d6 00 00 0a a7 00 05 31
74 13 31 51 50 80 00 c8 a0 56 31 20 00 00 00 00
00 00 00 00 00 00 00 00 00 00 14 47 a6 80 00 5e
3a 7c 20 45 74 61 74 20 43 68 61 ee 6e 65 a0 3a
20 27 53 74 61 6e 64 62 79 27 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 fa 9c
Chaque octet (XX) doit être dans une case de la StringGrid.

Merci

[lil_jam63]

il n'y a rien qui te permet de charger directement dans un TStringGrid tes informations, je pense que tu devrais traiter ton fichier ligne par ligne.
Tu charges la ligne dans un TStringList (l'espace agit en séparateur) ensuite avec une boucle sur TSTringList.Count-1 tu charges l'indice i dans le TStringGrid à l'indice colonne i.
Ensuite vidage du TStringList et c'est repartit.

[Sub0]

Salut!

Perso, j'utiliserais BlockRead, comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Uses Math;
 
Var
  buf: Array[0..$FFFF] Of Byte;
  sz: Integer;
 
{----------------------------------------------------------------}
Procedure TForm1.FormActivate(Sender: TObject);
Var F: File;
Begin
  StringGrid1.Align := alClient;
  StringGrid1.Font.Name := 'Lucida console';
  StringGrid1.Font.Size := 10;
  StringGrid1.DefaultColWidth := 24;
  StringGrid1.DefaultRowHeight := 16;
  StringGrid1.ColCount := StringGrid1.FixedCols + 16;
  If Not (OpenDialog1.Execute) Then Exit;
  FillChar(buf, SizeOf(buf), 0);
  AssignFile(F, OpenDialog1.FileName);
  Reset(F, 1);
  sz := FileSize(F);
  If (sz > 0) Then BlockRead(F, Buf, sz);
  CloseFile(F);
  StringGrid1.RowCount := Ceil(sz / 16) + StringGrid1.FixedRows;
  StringGrid1.Refresh;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.StringGrid1DrawCell(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
Var z: Integer;
Begin
  If (State = [gdFixed]) Then Exit;
  z := (ACol - 1) + (ARow - 1) * 16;
  If (z >= sz) Then Exit;
  StringGrid1.Canvas.TextRect(Rect,
    Rect.Left + 4, Rect.Top + 3, IntToHex(Buf[z], 2));
End;
 
{----------------------------------------------------------------}
End.

Lien tout en bas à gauche de cette fenêtre

[Jipété]

Salut.
Je viens de tester la routine à Sub0, merci à lui, mais "Erreur E/S 998" si fichier > 80 ko environ (pas cherché exactement).
Voilà mes corrections, inspirées de ça (pas très vieux).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Var
//  buf: Array[0..$FFFF] Of Byte;
  Buf: array of Byte;

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    sz := FileSize(F);
    SetLength(Buf, sz); //   <--------- Insérer cette ligne
    If (sz > 0) Then BlockRead(F, Buf[0], sz); // Erreur E/S 998 si gros

Testé avec un 4 mo sans pb, w2k D7.

Mes 2 cts,
--
jp