Apagar Os Dados E A Figura....

[Guest - [_THIAGO_] -]

Olá galera tipo é o seguinte estou fazendo o programa aqui e queria que quando eu apagasse os dados da pessoa ele apagasse a figura que está no componente image1 e retrocedesse ao registro anterior como faço??? a tabela já faz isso só que não exclui a figura......

olhem só....

procedure TForm1.BitBtn2Click(Sender: TObject);

var n: Integer;

begin

n:=Application.MessageBox('Deseja Apagar o Registro?','Salvar Foto',36);

if n = 6 then

Table1.delete

Else begin

Table1.Cancel;

ShowMessage('A Ação Foi Cancelada Pelo Usuário!');

Table1.First;

end;

end;

Como faço

Falow...

[KeitaroSan]

Apagar uma Imagem de um componente TImage??

Se for isso, é moleza, faz o seguinte...

procedure TForm1.BitBtn2Click(Sender: TObject);
var 
  n: Integer;
begin
  n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36);
  if n = 6 then
  begin
    Table1.delete;
    Image1.Picture := nil; // <- Estou considerando que seu Image se chame Image1
  end else 
  begin
    Table1.Cancel;
    ShowMessage('A Ação Foi Cancelada Pelo Usuário!');
    Table1.First;
  end;
end;

Era isso?? ou eu entendi errado??

Espero que isso o ajude...

[Guest - [_THIAGO_] -]

Keitaro consegui só que assim oh

procedure TForm1.BitBtn2Click(Sender: TObject);

var

n: Integer;

begin

n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36);

if n = 6 then

begin

Table1.delete;

Image1.Picture := nil;

image1.picture.loadFromFile(table1.fieldbyname('caminho').AsString)

end else

begin

Table1.Cancel;

ShowMessage('A Ação Foi Cancelada Pelo Usuário!');

Table1.First;

end;

end;

Agora quando acaba e não tem mais nada para exclluir ele dá "unknow file extension (.)"

como posso tratar esse erro?

[KeitaroSan]

Bom, você pode ignorar a linha que atrinui o valor NIL pro picture do Image, afinal, o LoadFromFile vai se encarregar de trocar a imagem cara...

logo, não é mais necessário limpar o Image, ou até uma forma melhor de fazer isso, seria:

procedure TForm1.BitBtn2Click(Sender: TObject);
var 
 n: Integer;
begin
  n := Application.MessageBox('Deseja Apagar o Registro?', 'Salvar Foto', 36);
  if n = 6 then
  begin
    Table1.delete;
    if FileExists(table1.fieldbyname('caminho').AsString) then
      image1.picture.loadFromFile(table1.fieldbyname('caminho').AsString) else
      Image1.Picture := nil;
  end else 
  begin
    Table1.Cancel;
    ShowMessage('A Ação Foi Cancelada Pelo Usuário!');
    Table1.First;
  end;
end;