如何将MEMO字段转换成TXT文件保存起来（PARADOX数据库）。(100分)

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #1

THANKS

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #2

var
MyMemo : TMemo;
begin
MyMemo := TMemo.Create(Self);
MyMemo.Text := Table.FieldByName('FieldMemo').AsString;
MyMemo.Lines.SaveToFile('C:/Test.Txt');
MyMemo.Free;
MyMemo := Nil;
end;

 

I

iamcaca

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #3

用TStringList就行了

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-27

• #4

多人接受答案了。