[DELPHI] caratteri ascii

[alepio]

devo fare un'insert into in un database access.
fin qui tutto bene.
devo però escudere il carattere ' perchè altrimenti nulla funziona

allora ho ativato l'evnto onkeypress ed inserito la seguente if..

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: word;
Shift: TShiftState);
begin
if key=xx then
begin
MessageDlg('carattere non consentito SI PREGA DI CANCELLARLO', mtInformation, [mbOK],0);
end;
end;


le xx sono il carattere ascii per la ' a me risulta che sia 39 ma nulla da fare,
voi sapete venirmi in aiuto????????

[alka]

Prova ad intercettare l'evento OnKeyPress al posto dell'evento OnKeyDown.

Il codice ASCII risulta anche a me uguale a #39.

Imposta il parametro Key passato all'evento al valore #0 per "assorbire" il tasto premuto.

Ciao!

[maxetere]

la soluzione migliore non è eliminarlo ma gestire il suo inserimento. Se ad esempio un utente deve inserire un nome di città tipo L'Aquila o un cognome come D'Andrea che gli dici di cambiare residenza e cognome???

A parte gli scherzi, hai due soluzioni

1) nell'evento OnKeyPress metti questo codice:
if Key = '''' then Key := Chr(0);

2) consenti l'inserimento dell'apice raddoppiando gli apici al momento di salvare la stringa nel database:

function Apici(Text : AnsiString) : AnsiString;
//raddoppia gli apici nella stringa
var
i : integer;
AuxString : AnsiString;
begin
AuxString := '';
for i := 1 to length(Text) do
if Text[i] = '''' then AuxString := AuxString + ''''''
else AuxString := AuxString + Text[i];
result := Auxstring;
end;

[$$$]

bada che non basta gestire eventi della tastitiera ma anche COPIA INCOLLA... col mouse e cambio testo da altri software (WINDOW HOOKS!)