|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.03.2011, 00:29 | #11 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Код:
fName:=Edit1.Text; AssignFile(f,fName); Rewrite(f); SetLength(a,Memo1.Lines.Count); for i := 0 to Memo1.Lines.Count - 1 do begin s:=Memo1.Lines[i]; k:=StrToFloat(s); a[i+1]:=k; end; for i := 1 to Memo1.Lines.Count do begin write(f,a[i]); end; closefile(f); |
28.03.2011, 00:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте ознакомимся с этими топиками, там очень много важного по вашему запросу Даны три вещественных числа... Cоздать файл целых чисел |
28.03.2011, 02:09 | #12 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Ну и хорошо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|