【搞定】如何将MEMO控件数据写入本地文本**

ccyy0112

procedure TGZB4.Button4Click(Sender: TObject);
var
   s,s3:string;
   s1,s2ouble;
begin
    datasetbroker1.DataSet.Open;
    datasetbroker1.DataSet.First;
    memo1.Text := '';
    while not datasetbroker1.DataSet.Eof do
    begin
       s := datasetbroker1.DataSet.FieldByName('YXZH').AsString;
       s1 :=datasetbroker1.DataSet.FieldByName('SL').AsFloat;
       s2 := s1*100;
       s3 := sysutils.FloatToStr(s2);
       memo1.Lines.Add('        '+s+'     00'+s3+'00');
       datasetbroker1.DataSet.Next;
    end;
end;
通过上面的代码 我将数据集中的 YXZH,SL 两个字段的值写到了控件memo1中 现在我想实现 将memo1控件中的数据写导本地文本中 请问如何实现

jiahaiminghr

memo1.Lines.SaveToFile('C:\1.txt');

ccyy0112

非常感谢 问题解决