резбивать файлы на части
файл в поток - и реж его как вздумается 
Благодарность безмерная. Это ссылка http://forum.ru-board.com/topic.cgi?forum=5&topic=8934&start=0, где обсуждается программа, для которой так пригодилась Ваша помощь (если интересно). Как ни странно, в Инете я не нашел (а я искал) такого простого и изящного решения.
Два вопроса:
1. Можно ли в процессе чтения вместо отсутствующих данных поставить нули. График получается "корявый", но все же программа работает.
2. Может быть возможно, чтобы пропуск в данных сохранить и на графике отразить отсутствием точки и соединением линией графика имеющихся соседних точек. Насколько я понял, это не получится (нет возможностей TChart)
unit Unit_222;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
type
TForm1 = class(TForm)
Chart1: TChart;
BitBtn1: TBitBtn;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
n,lbt,ldt,lbtd,ldtd,laoa,rbt,rdt,rbtd,rdtd,raoa,bbt,bdt,bbtd,bdtd,baoa:double;
lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis:double;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F: TextFile;
BufStr: String;
BufStrList: TStringList;
begin
DecimalSeparator := '.';
AssignFile(f,'users/Eyes.txt');
Reset(f);
n:= 0;
while not EOF(f) do begin
n:= n + 1;
ReadLn(F, BufStr);
BufStrList:=TStringList.Create;
BufStrList.Text:=StringReplace(BufStr,#9,#13#10,[rfReplaceAll]);
if BufStrList.Count >1 then
begin
if BufStrList.Strings[2] <> '' then lostr:= StrToFloat(BufStrList.Strings[2]) else lostr:= 0;
if BufStrList.Strings[3] <> '' then lred:= StrToFloat(BufStrList.Strings[3]) else lred:= 0;
if BufStrList.Strings[4] <> '' then lgreen:= StrToFloat(BufStrList.Strings[4]) else lgreen:= 0;
if BufStrList.Strings[5] <> '' then ldis:= StrToFloat(BufStrList.Strings[5]) else ldis:= 0;
if BufStrList.Strings[6] <> '' then rostr:= StrToFloat(BufStrList.Strings[6]) else rostr:= 0;
if BufStrList.Strings[7] <> '' then rred:= StrToFloat(BufStrList.Strings[7]) else rred:= 0;
if BufStrList.Strings[8] <> '' then rgreen:= StrToFloat(BufStrList.Strings[8]) else rgreen:= 0;
if BufStrList.Strings[9] <> '' then rdis:= StrToFloat(BufStrList.Strings[9]) else rdis:= 0;
if BufStrList.Strings[10] <> '' then bostr:= StrToFloat(BufStrList.Strings[10]) else bostr:= 0;
if BufStrList.Strings[11] <> '' then bred:= StrToFloat(BufStrList.Strings[11]) else bred:= 0;
if BufStrList.Strings[12] <> '' then bgreen:= StrToFloat(BufStrList.Strings[12]) else bgreen:= 0;
if BufStrList.Strings[13] <> '' then bdis:= StrToFloat(BufStrList.Strings[13]) else bdis:= 0;
if rostr <> 0 then series1.AddXY(n, rostr,'',clblue);
if lostr <> 0 then series2.AddXY(n, lostr,'',clgreen);
if bostr <> 0 then series3.AddXY(n, bostr,'',clred);
end;
BufStrList.Free;
end;
CloseFile(f);
end;
end.
Это ссылка http://forum.ru-board.com/topic.cgi?forum=5&topic=8934&start=0, где обсуждается программа, для которой так пригодилась Ваша помощь (если интересно).
А я уже наблюдал , но не пробовал... Вещь интересная ) поробуй покопать в сторону TCustomGrid.LeftCol.
И такая ерунда получается.
Если данные отсутствуют в начале или середине строки - все корректно
Если отсутствует ПОСЛЕДНЕЕ значение в строке, то там нет ТАВ (смотрел в UltraEdit) и появляется ошибка (что-то про индекс).
типа экстаполяции данных между двумя соседними точками в чарте.
А про "экстаполяцию данных между двумя соседними точками в чарте" можно подробнее? Я пытался ее там найти, но увы. Где там что выставить надо?
DUMAND
Поправить строку :
if BufStrList.Strings[13] <> '' then bdis:= StrToFloat(BufStrList.Strings[13]) else bdis:= 0
на
if BufStrList.Count > 13 then if BufStrList.Strings[13] <> '' then bdis:= StrToFloat(BufStrList.Strings[13]) else bdis:= 0
При условии, что там железно 13 столбцов (если нет, то соответственно проверка в каждую предыдущую строку с соответствующим индексом).
Цитата:А про "экстаполяцию данных между двумя соседними точками в чарте" можно подробнее? Я пытался ее там найти, но увы. Где там что выставить надо?
Так вот, если я правильно понимаю, график состоит из дискретных значений. Тот пример, последний, думаю, решает проблему нулевых (пустых) значений.
А какой смысл интерполировать между двумя точками.
Если не хочется иметь угловатый график, то для начала нужно рассчитать сплайн (способов море, все зависит от того, что на выходе), а затем уже его и строить. Т.е. по всем точкам получится некая функция.
А вот строить интерполяционный сплайн между двумя точками бессмысленно.
Короче говоря, если хочется получить некую гладкую кривую, то строить по точкам в лоб неправильно.
Путанно, но, думаю, понятно.
И еще. Можно ли в такую же форму (новое приложение) возвращать (читать) значения из файла данных. Неудобно просматривать текстовые файлы. А так все будет в привычном виде. Файл-то с одним именем для всех, только в разных папках. Можно добавить кнопку открытия файла и считать его?
Например ComboBox называется "Диагноз" и в нем выбор из 4 вариантов. Вариант пишется. А нельзя записать так: Диагноз=Близорукость.
Вывод данных из файла в форму. Пробовал выводить в свойство Text LabelEdit и Edit значения переменных. Не получилось.
Только без названия бокса. Например ComboBox называется "Диагноз" и в нем выбор из 4 вариантов. Вариант пишется. А нельзя записать так: Диагноз=Близорукость.
DUMAND
Если вы будете отправлять файлы для себя с согласия пользователя, тогда просто сделайте ShellExecute(Application.Handle,'open','mailto:towho@mysite.com',nil,nil,0)
Здесь будет создано письмо в пользовательском почтовом клиенте. Пользователю останется только нажать на "Отправить". Программы которые будут пытаться отправлять данные автоматом нормальные пользователи считают вредоносными, так что лучьше покажите что вы будете отправлять, пользовтаелю спокойнее, и вам хорошо.
Кроме того, MAPI менее распространненый протокол чем SMTP.
В основном форуме у вас было пожелание чтобы были кнопки на флеше. Сразу предупреждаю, если мене прийдеться скачать версию с флешем, значит я буду требовать версию без флеша. Т.к. флеш по нормальному не рубиться при просмотре в Internet он у меня не стоит по нормальному. Так что оставьте стандартные компоненты WINDOWS. Среди моих знакомых таких довольно много.
Цитата:И еще. Можно ли в такую же форму (новое приложение) возвращать (читать) значения из файла данных. Неудобно просматривать текстовые файлы. А так все будет в привычном виде. Файл-то с одним именем для всех, только в разных папках. Можно добавить кнопку открытия файла и считать его?
Конечно можно. здесь операция будет похоже на запись данных в файл. Только будьте внимательны при определении формата выводимых данных (при его изменении нужно будет менять процедуру чтения из файла)
Как собственная шишка пожелание, пишите версию формата данных в файл данных.
Это поможет понять что не так в данных которые вы пытаетесь прочитать.
Вы уже научились считывать данные для графика, так что проблем как получить данные для формы не должно для вас быть очень сильно проблематичным.
Цитата:Например ComboBox называется "Диагноз" и в нем выбор из 4 вариантов. Вариант пишется. А нельзя записать так: Диагноз=Близорукость.
Что произойдет с форматом выходных данных если интерфейс программы будет переведен на другой язык?
Цитата:Вывод данных из файла в форму. Пробовал выводить в свойство Text LabelEdit и Edit значения переменных. Не получилось.
Код в студию. Что пишет компилятор, что выводит программа?
Не обязательно всю простыню, достаточно одного контрола.
Можно... Либо на событие FormCreate запоминать в переменные имена комбобоксов и потом их выводить
Код:
cbText:=ComboBox1.Text;
.....(после изменения в боксе Text будет уже иметь выбранное значение)
WriteLn(f,cbText,+'='+ComboBox1.Text);
Ну или просто писать:
Код:
WriteLn(f, 'Диагноз='+ComboBox1.Text);
edit1.text:=lostr;
. А это с Shell не сделаешь. А показать текст письма несложно в Hel
2. Предположим в приложение есть дополнительная форма form2. Как открыть ее кнопкой button1 из основной формы form1? И как закрыть кнопкой button2 в форме form2.
Вопрос по чтению из текстового файла.
Вопрос по чтению из текстового файла. Файл:
____________________
Фамилия=Иванов
2. Предположим в приложение есть дополнительная форма form2. Как открыть ее кнопкой button1 из основной формы form1? И как закрыть кнопкой button2 в форме form2.
Страницы: 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
Предыдущая тема: Вероятность одинакового CRC32