Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.01.2010, 21:55
vladimir01101988 vladimir01101988 вне форума
Прохожий
 
Регистрация: 03.12.2009
Сообщения: 19
Репутация: 10
Восклицание запись массива в файл

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:45.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025