И снова не пойму, в чем проблема? )
Memo это всего лишь компонент, в котором вы можете вывести многострочный текст.
Просто добавьте в CSV файл, текст, который предназначен для Memo, который как и любой другой текст будет хранится в поле БД, только с именем memo
пример CSV файла с текстом для Memo
Филатова;Марина;Алексеевна;8977777777;4к2;55;777;бмв;этот текст для поля memo
В скрипт просто добавляете это поле memo
procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
OpenDialog: TOpenDialog;
sl: TStringList;
arrStr: array of string;
i,c: integer;
lastname: string;
firstname: string;
secondname: string;
phone: string;
dom: string;
kvartira: string;
Markaa: string;
NomerA: string;
Memo: string;
begin
OpenDialog := TOpenDialog.Create(Form1);
if OpenDialog.Execute then
begin
sl := TStringList.Create;
sl.LoadFromFile (OpenDialog.FileName);
c := sl.Count - 1;
for i := 0 to c do
begin
arrStr:= SplitString(sl[i], ';');
// lastname
lastname := '"' + ReplaceStr(arrStr[0], '"', '""') + '"';
// firstname
firstname := '"' + ReplaceStr(arrStr[1], '"', '""') + '"';
// secondname
secondname := '"' + ReplaceStr(arrStr[2], '"', '""') + '"';
// phone
phone := '"' + ReplaceStr(arrStr[3], '"', '""') + '"';
// dom
dom := '"' + ReplaceStr(arrStr[4], '"', '""') + '"';
// kvartira
kvartira := '"' + ReplaceStr(arrStr[5], '"', '""') + '"';
// Markaa
Markaa := '"' + ReplaceStr(arrStr[6], '"', '""') + '"';
// NomerA
NomerA := '"' + ReplaceStr(arrStr[7], '"', '""') + '"';
// Memo
Memo := '"' + ReplaceStr(arrStr[8], '"', '""') + '"';
SQLExecute ('INSERT INTO clients (lastname, firstname, secondname, phone, dom, kvartira, Markaa, NomerA, memo) VALUES ('+ lastname +','+ firstname +','+ secondname +','+ phone +','+ dom +','+ kvartira +','+ Markaa +','+ NomerA +','+Memo+');');
end;
sl.Free;
Form1.TableGrid1.dbUpdate;
ShowMessage('Импорт завершен');
end;
OpenDialog.Free;
end;
Dmitry.
db.zip