Question

这样用DELPHI给MEMO组件的每行添加编号

我想通过文件导入到MEMO中
然后给每行添加一个编号 从1 开始
望高手指点一二~

Answer 1

定义一个变量i ，每加一行自加1.这下面是我写的，希望对你有用。
var
i,j,k:Integer;
S:String;
F:TextFile;
begin
if SaveDialog1.Execute then
begin
ADOQuery1.DisableControls;
try
AssignFile(F,SaveDialog1.FileName);
Rewrite(F);
S:='';
for i :=0 to ADOQuery1.FieldCount-1 do
begin
S:=S+ADOQuery1.Fields.Fields[i].FieldName+' | ';
end;
Writeln(F,S);
ADOQuery1.First;
k:=1;//编号
while not ADOQuery1.Eof do
begin
s:='';
for J:=0 to ADOQuery1.FieldCount-1 do
begin
s:=s+ADOQuery1.Fields.Fields[j].AsString+' | ';
end;
S:=IntToStr(k)+'|'+s;
Writeln(F,S);
ADOQuery1.Next;
Inc(k);//编号自加
end;
CloseFile(F);
except
end;
ADOQuery1.EnableControls;
end;
end;