[vladimir01101988]

Добрый вечер.
Подскажите пожалуйста, почему массив не пишется в файл и как умножить 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.

[b2soft]

тебе надо на дробное умнгожить целое???

просто тип целого real или extended поставь.

[CTAJLUH]

m: array[1..10] of integer;

замени итеджер на доибле и все

[Лунтик-Некрофил]

i типа REAL.
Во writeln вместо запятых до и после ';' должны быть плюсы по идее.
Если не пишется из-за другого, то мне ща не проверить, без дельфы сижу

[vladimir01101988]

Нет, плюсики не помогают, файл все равно пустой.
А умножение теперь получилось, спасибо.

[Лунтик-Некрофил]

Тогда могу только тебе ща посоветовать пошагово через нажатие f5 в коде пройти все участки кода и проверить в каком месте код не выполняется.

[CTAJLUH]

Writeln(f,name_g[n,j], ';' , name_g[n,j+1]);
';' , name_g[n,j+1]- это надо заменить количеством символов (на сколькоя помню)
на делфи перешел недавно но попробуй

http://www.delphisources.ru/pages/faq/base/writeln.html
может там найдешь ответ

[vladimir01101988]

но ведь при помощи этой части записывается следующий элемент в файле

[CTAJLUH]

http://www.delphisources.ru/pages/fa...Write.php.html
тупо воспользовался гуглом вроде там есть ответ

тоесть нужно писать write а потом уже writeln для перехода на следующую строку