Problem mit DBMemo beim ändern von True in False

**Nalincah**

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

markieren

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

markieren

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...

Problem mit DBMemo beim ändern von True in False

Problem mit DBMemo beim ändern von True in False

Forumregeln