仓库管理软件版1楼: memo中有无数行，可以读一行删除一行吗？
增加一行可以用memo1.lines.add(＇＇s＇＇);

2楼: 应该有Memo1.lines.Delete[这里填行号]吧 如免费局域网管理软件

3楼: function GetAline(idx: Integer):string;
begin
if (idx >= 0) and (idx < Memo1.Lines.Count) then
begin
Result:= Memo1.Lines.Strings[idx];
Memo1.Lines.Delete(idx);
end;
end;

4楼: 如果是从头读到尾的话可以这样：
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer ;
begin
for i:=0 to Memo1.lines.count -1 do
begin
Edit1.text:= Memo1.Lines.Strings[0];
Memo1.Lines.Delete(0);
showmessage(inttostr(i)) ;
end ;
end;

注意不能写成
Edit1.text:= Memo1.Lines.Strings[i];
Memo1.Lines.Delete(i);

如果是选择性的读取，那就麻烦点了。删除一行后，该行后面的各行index均需减1

5楼: 以上所说的应该都可以实现的，也可以从尾行开始读起：

for i:= Memo1.lines.count -1 downto 0 do
begin
Edit1.text:= Memo1.Lines[i];
Memo1.Lines.Delete(i);
end ;

6楼: 请问怎么揭帖啊