数据字段
自动编号 内容字段
ID 文本内容有两个字段要求导出成TXT文件导入和导出操作 这样有可能做到吗?? 就是一条记录不只一行##1##内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容
内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容
##2##内容内容内容内容内容内##3##内容内容内容内容内容内dfgfdgfgdfg##4##内容内容内容内容内
容内dfgfdgfgdfg##5##内容内容内容内容内容内dfgfdgf
gdfg
自动编号 内容字段
ID 文本内容有两个字段要求导出成TXT文件导入和导出操作 这样有可能做到吗?? 就是一条记录不只一行##1##内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容
内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容
##2##内容内容内容内容内容内##3##内容内容内容内容内容内dfgfdgfgdfg##4##内容内容内容内容内
容内dfgfdgfgdfg##5##内容内容内容内容内容内dfgfdgf
gdfg
procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);
{ This browses a string and divide it into terms whenever the given
separator is found. The separators will be removed }
var
hs : string;
p : integer;begin
Terms.Clear; // First remove all remaining terms
if Length(s)=0 then // Nothin' to separate
Exit;
p:=Pos(Separator,s);
while P<>0 do
begin
hs:=Copy(s,1,p-1); // Copy term
Terms.Add(hs); // Add to list
Delete(s,1,p); // Remove term and separator
p:=Pos(Separator,s); // Search next separator
end;
if Length(s)>0 then
Terms.Add(s); // Add remaining term
end;