delphi小疑问2

Question

写了个双色球的随机选号器，现在想完成1个功能。
1。保存选取的几组edit.text中的号码为一个文本文件；
2。再选取一次随机号码，并保存在刚才的文本号码的下一行不知道有没办法实现，偶是新手，请稍微说的详细些，谢谢了

Answer 1

var
 f:Textfile;
 s:string;
begin
 s:='';
 s:=edit1.Text+edit2.Text; 
 AssignFile(f,FilePath);
 if FileExists(FilePath) then
   Append(f)
 else
   Rewrite(f);
 Writeln(f,s);
end;

Answer 2

var 
f:Textfile; 
s:string; 
begin 
s:=''; 
s:=edit1.Text+edit2.Text; 
AssignFile(f,FilePath); 
if FileExists(FilePath) then 
  Append(f) 
else 
  Rewrite(f); 
Writeln(f,s);
CloseFile(f); //关闭文件 
end; 
 

Answer 3

{那，俺是来抢分的，楼主您看仔细楼}
{Delphi:比如你刚开始的几个字符串保存在sList中}
procedure SaveToFile(sList:TStringLIst);
var
  I    : Integer;
  txtF : TExtFile;
begin
  AssignFile(txtF,'edit.txt');
  Rewrite(txtF);
  FOR I := 0 TO sList.Count DO
  BEGIN
    WriteLn(txtF,sList.String[I]);
  END;
  CloseFile(txtF);
end;{追加到刚才的文件当中}
procedure AppendToEditT(s:String);
var
  txtF  : TExtFile;
begin
  AssignFile(txtF,'edit.txt'); 
  if FileExists(FilePath) then 
    Append(txtF) 
  else 
    Rewrite(txtF); 
  Writeln(txtF,s); 
  CloseFile(txtF); 
end;

Answer 4

呵呵，你们被LZ限制了思维，3楼的都用TStringList了，那为什么不直接
sList.SageToFile();呵呵，改改3楼的代码，如下
procedure SaveToFile(sList:TStringLIst; FileName: AnsiString);
begin
  sList.SaveToFile(FileName);
end;如果你选出一个号一定要保存到文件中，那么这样处理：
sList.LoadFromFile(FileName);
sList.Add(IntToStr(CurrNum));
sList.SaveToFile(FileName);
就是说，先把原来的加载进来，然后再把当前选中的号保存到列表中，然后再保存
其实你完全可以把选出来的号都保存到TStringList中，最后SaveToFile一下就可以了

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var 
f:Textfile; 
s:string;
FilePath:string; 
begin 
s:=''; 
s:=edit1.Text+edit2.Text; 
AssignFile(f,FilePath);
if FileExists(FilePath) then 
  Append(f) 
else 
  Rewrite(f); 
Writeln(f,s); 
CloseFile(f); //关闭文件 
end; 然后执行发现可以通过，但是一点保存就报错i/o error 105；报错后提示rewrite(f);这个

Answer 6

你还是这么处理吧
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TStringList;
  FilePath: String;
begin
  F := TStringList.Create;
  try
    // 别忘了给 FilePath 赋值，让其是一个合法的文件名
    if FileExists(FilePath) then
      F.LoadFromFile(FilePath);    F.Add(Edit1.Text + Edit2.Text);
    F.SaveToFile(FilePath);
  finally
    F.Free
  end;
end;