akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
stanzdor
вот что даст тебе, а в перспективе мне, если я покажу свою залипуху?
на:
Код:
procedure saveIntensityCurve(filename: string; numPoints: integer; X, Y: TDATA);
var
i: integer;
FP: text;
begin
assign(FP, filename);
rewrite(FP);
for i := 1 to numPoints do begin
writeln(FP, _E00_7(X{i}), ' ', _E00_7(Y{i}));
end;
close(FP);
end; |
полегчало в определении проблемы?
ах да, я не рассказал, что TDATA -- массив даблов, а _E00_7() -- функа записи дабла в формате 7-цифр с 2-мя в показателе: +1.0Е00
Добавлено:
надеюсь, меня не будут сношать за то что я массив индексирую фигурными скобками?
Добавлено:
блин, но вот же глюк, где я делаю что-то не так!
неужели никто ничего и для этого надо знать мою ОСЬ, производителя писюка и моего компьютерного кресла!
так работает
saveIntensityCurve('data.dat', numPoints, X, Y);
а так нет!
const/var
filename1: string = 'data.dat';
saveIntensityCurve(filename1, numPoints, X, Y);
Добавлено:
игры c
{$J+,X+,R-} <--это мои штатные установки
{!$H-} //Use long strings by default
{!$P-} //Open string params
{!$V-} //Strict var-strings
не помогают...
Добавлено:
stanzdor
Цитата:и да, я -- не программист, хотя пишу/писал на 4-х языках... |
Всего записей: 25186 | Зарегистр. 06-12-2002 | Отправлено: 16:24 28-06-2023 | Исправлено: akaGM, 16:24 28-06-2023 |
|
