[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 для перехода на следующую строку

[Drozh]

Попробуй писать в файл примерно вот так

Код:

 AssignFile(F,'C:\file.txt');
 Rewrite(f);
  for i := 0 to name_g_I do
  begin
    for j := 0 to name_g_J do
     Write(f, name_g[i, j]+';');
   Writeln(f, '');
  end;

 CloseFile(f);

Где name_g_I и name_g_J - число записанных столбцов и строк в массиве

[vladimir01101988]

Всем спасибо, сделал.
Если кому интересно, вот правильный код программы:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 var
  Form1: TForm1;
  t: TStream;
  i:integer;
  m: array[1..10] of double;
  f: textfile;
 { Name_g : array[1..255,1..255] of string;  }

 implementation

{$R *.dfm}

begin
  t := TMemoryStream.Create;
    for i:= 1 to 10 do
      m[i]:= (i)*(3.475*2.875);
        begin
          AssignFIle(F,'D:\тест\file.txt');
          Rewrite(f);
            for i := 1 to 10 do begin
              Writeln(f, m[i],';');
            end;
          CloseFile(f);
        end;
      t.Free;
end.

[Aristarh Dark]

НЕПРАВИЛЬНО!!!

[vladimir01101988]

что неправильно? Все??

[Aristarh Dark]

Ну в принципе да, ВСЕ НЕПРАВИЛЬНО.

[Страдалецъ]

Мдааа! Редкий набор ляпов. Такое надо в отдельную темку шедевров форума сохранять.