Ich hab in einem Projekt Links ein DBGrid1 in dem eine Tabelle geöffnet ist und rechts daneben ein DBMemo in dem der jeweilige Inhalt drin steht
Code:
procedure TFrmMain.AccessDBGridCellClick(Column: TColumn);
begin
AccessDBMemo.DataField := AccessDBGrid.SelectedField.FieldName;
end;
Wenn ich jetzt auf ein Feld klicke welches den Datentyp "Boolean" hat wird im Memo "Wahr" oder "Falsch" angezeigt. Jetzt kann man im Memo den Wert ändern. Nach eingabe von "Wahr" oder "Falsch" kann man es mit Return bestätigen
Code:
procedure TFrmMain.AccessDBMemoKeyPress(Sender: TObject; var Key: Char);
begin
if ReturnTypFkt(Data.AccessTab.FieldByName(AccessDBMemo.DataField).DataType) = 'Boolean' then
begin
if (key=#13) then
begin
AccessDBMemo.Text := AccessDBMemo.Lines[0];
Data.AccessTab.Post;
AccessDBGrid.SetFocus;
end;
end;
end;
Leider übernimmt der irgendwie das Enter und dann steht im Feld immer "Boolwert + Return" und dann krieg ich nen Fehler
Wie kann ich jetzt den Boolwert rausfiltern????
Hoffe die Erklärung was verständlich...
