来，来，都进来看看．

Question

读入memo里面，然后逐行做判断：
firstline := true;
for i:= memo.lines.count - 1 downto 0 do
begin
  if trim(memo.lines[i]) = '' then
  begin
    if firstline then
    begin 
      memo.delete(i);
      first := false;
    end else
      first := true;
  end;
end;试一下吧，只要你格式是对的，应该就没有问题

Answer 1

firstline := true;
for i:= memo.lines.count - 1 downto 0 do
begin
  if trim(memo.lines[i]) = '' then
  begin
    if firstline then
    begin 
      memo.delete(i);
      firstline := false;
    end
    else
      firstline := true;
  end;
end;

Answer 2

哦！我的代码里写错了一点：
firstline := true;
for i:= memo.lines.count - 1 downto 0 do
begin
  if trim(memo.lines[i]) = '' then
  begin
    if firstline then
    begin 
      memo.delete(i);
      firstline := false;
    end else
      firstline := true;
  end;
end;

Answer 3

如果你不想用Memo，可以这样:
//下面代码演示如何读写文件
var
  FileStrings:TStrings;
begin
  FileStrings:=TStringList.Create;
  FileStrings.ReadFromFile('C:\my.txt');
  FileStrings[0].string:='1';
  FileStrings.SaveToFile('C:\My.Txt');
  FileStrings.Free;
end;

Answer 4

Cobi,游少爷，纠正你们其中的一个错误：
Memo1.Lines.Delete(I)不是MeMo1.Delte(I);
adailee:应该是LoadFromFiel