Editar un buffer

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[Dedalo]

Yo eso lo solucioné con un StringGrid.

El fuente de la ventana que manipula los datos es el siguiente:

unit VerDatos;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, StdCtrls, Buttons, ExtCtrls, Pic16f84;

type
TFverDatos = class(TForm)
Panel6: TPanel;
BBcancelar: TBitBtn;
BBaceptar: TBitBtn;
Panel3: TPanel;
Panel1: TPanel;
SGeprom: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure BBaceptarClick(Sender: TObject);
procedure BBcancelarClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
Pic:^Tpic;
public
procedure Entrar(var PicRef:TPic);
end;

implementation
{$R *.DFM}

procedure TFverDatos.FormCreate(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 3 do SGeprom.cells[0,i]:=IntToHex(i*16,2);
end;

procedure TFverDatos.Entrar(var PicRef:TPic);
var
i,j:Integer;
begin
Pic:=@PicRef;
for i:=0 to 3 do for j:=0 to 15 do SGeprom.cells[j+1,i]:=IntToHexPic.MemDatos[i*16+j],2);
Show;
end;

procedure TFverDatos.BBaceptarClick(Sender: TObject);
var
i,j,k:Integer;
begin
for i:=0 to 3 do for j:=0 to 15 do Val('$'+SGeprom.cells[j+1,i],Pic.MemDatos[i*16+j],k);
end;

procedure TFverDatos.BBcancelarClick(Sender: TObject);
begin
Close;
end;

procedure TFverDatos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

end.

Esta hecho para ver la tabla de datos de la eprom del PIC16F84, pero aumentando los numeros vale para cualquier tabla de datos en hexadecimal.

[[FGarcia]]

Hola!
Esto me parecio interesante:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, StdCtrls, Buttons, ExtCtrls, Pic16f84;

esa unidad como ¿la conseguiste o creaste para añadirla a Delphi?

Gracias.

[Dedalo]

Empezado por FGarcia

Hola!
Esto me parecio interesante:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, StdCtrls, Buttons, ExtCtrls, Pic16f84;

esa unidad como ¿la conseguiste o creaste para añadirla a Delphi?

Gracias.

la hice yo. En realidad me hice todo, pondré el programa completo por trocitos para no llenar el hilo con codigo.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"