Hat sich Erledigt man sollte nicht versuchen dem Memo die Länge vorzuschreiben
,naja das ist die Strafe für Faulheit(Copy/Paste)
Delphi-Quellcode:
procedure TfrmNEWtable.OKBtnClick(Sender: TObject);
begin
if edName.Text <> '' then begin
frmmain.TreeView1.Items.Add(NIL,(edName.Text));
frmmain.ADOConnection1.Execute('CREATE TABLE '+edName.Text+' ('+
'Feld1 TEXT(50),' +
'Feld2 MEMO(50),' + Hier
'Feld3 TEXT(50),' +
'Feld4 MEMO(50))'); und Hier
frmmain.ADOQuery1.Open;
frmmain.Memo1.Clear;
edName.Text:='';
OpenDB;
end else
ShowMessage('Enter name to Save');
end;