ممكن تصحيح هذا الكود:
وشكرا
كود :
var
i:integer;
for i := 1 to memo1.Lines.Count -1 do
begin
ADOQuery1.SQL.Add('insert into info values ('+memo1.Lines[i]+' ');
ADOQuery1.ExecSQL;
end;وشكرا

