Добрый вечер.
Подскажите пожалуйста, почему массив не пишется в файл и как умножить i на дробное число (выходит сообщение о несопоставимости integer и extended)
Код:
var
Form1: TForm1;
t: TStream;
i:integer;
m: array[1..10] of integer;
f: textfile;
n: integer;
Name_g : array[1..255,1..255] of string;
j: integer = 0;
implementation
{$R *.dfm}
begin
t := TMemoryStream.Create;
for i:= 1 to 10 do
m[i]:= (i)*(3);
begin
AssignFIle(F,'D:\тест\file.txt');
Rewrite(f);
n:=1;
j:=1;
while (name_g[n,j]<>'') do begin
n:=n+1;
j:=j+1;
Writeln(f,name_g[n,j],';',name_g[n,j+1]);
end;
CloseFile(f);
end;
t.Free;
end.