Запись в файл

[skovorodkun]

Как записать данные из мемо в файл?
Вот код:
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..9] of integer; b, S, i: integer;
begin
b:=strtoint(edit1.Text);
for i:= 1 to 9 do begin
a[i]:=i;
S:=b*a[i];
memo1.Lines.add(inttostr(b) + ' x ' + inttostr(a[i]) + ' = ' + inttostr(S));
Memo1.Lines.SaveToFile:= c
end;
end;

end.

[Jaguar83]

1. массив a здесь совершенно не нужен. Вместо a[i] просто используй i.
2. неправильно сохраняешь в файл. Надо так

Memo1.Lines.SaveToFile('C:\data.txt');

[Serge_Bliznykov]

и ВЫНЕСТИ сохранение в файл ЗА ЦИКЛ!!!!