В Memo1 текст:

в Memo2:

При выполнении кода

вылетает ошибка <Project raised exception class EConvertError with message ''' is not a valid floating point value'>. В чём ошибка? 

Значит там пустая строка.

Видимо, напортачил с индексами... Спасибо.

IamDreamer, может на всякий случай еще использовать TryStrToFloat?

THandle, вообще можно, но. Первоначально в Memo числа заносятся из текстового файла (по условию решаемой задачи). Реализовано вот так:

Перед началом процедуры нужно указать путь к файлу с данными. Мне бы лучше сделать проверку на существование файла (если, например, путь к файлу не указали, а сразу попытались считать данные). 

и еще  (на всякий случай) в мемо можно сразу грузить файл....

Спасибо, попробовал. Кода так становится меньше, но как переписать в Memo1 не всё содержимое файла, а первый (или любой другой) столбец?

Возможно, в начале работы программы стоит сделать так:

А то вдруг разделитель точка.

Пишу:

На что заменить <halt>, чтобы при ошибке программа возвращалась к этапу выбора файла? Метку создать?

Пробовал запускать OpenDialog.Execute (с последующим Reset()), но при считывании значений из файла вылетала ошибка

Для начала пиши:

как то оно грамотней.
Ну напиши exit попробуй. А лучше весь код покажи - а то не понятно куда надо возвращаться программе.

Это сообщение отредактировал(а) superVad - 23.3.2011, 18:01

В первоначальном варианте так и было .

IamDreamer, какой ты быстрый   
Exit попробуй - но возможно я не до конца понял что то.

superVad, спасибо! То самое.

у TOpenDialog есть опция ofFileMustExist - позволит открыть только существующий файл.

Добавлено через 1 минуту и 12 секунд
http://www.beluch.ru/progr/100comp/8_2.htm

Сделал так:

а если исключение вызовет FloatToStr, формат числа например кривой ?
то MessageDLG(...  введет в заблуждение и скроет реальную ошибку!

Страшно представить ...

Почему TryStrToFloat есть, а TryFloatToStr нет?

я FloatToStr и StrToFloat  перепутал...

FloatToStr - врядли вызовет исключение....


Это сообщение отредактировал(а) Frees - 23.3.2011, 19:30

Обещали файл только с числами. Я их присваиваю переменным, потом вывожу в Memo.

Ну раз обещали, то можно и так. Вот только кого назовут стрелочником, если что-то пойдет не так?
Ну и вдогонку. Read/Readln могут и не вызвать исключение. Если не включена соответствующая опция компилятора. По умолчанию она включена.

Как-нибудь переживу...

Файл оказался несколько иной формы: имеет вид

Переменной типа TTime можно напрямую из файла командой Readln(filename, T) присвоить значение первого столбца (т.е. чтобы после выполнения Readln(Filename, T) значение T=11:17:01)?

Я не уверен но возможно надо в FormCreate такое поставить:


И можно будет использовать функцию StrToTime.

ПС Вероятно я ошибся и надо использовать LongTimeFormat вместо ShortTimeFormat.

В общем поэкспериментируй, попробуй как работает такое:


Это сообщение отредактировал(а) superVad - 24.3.2011, 19:05

То есть всё-таки надо будет сначала считать как строку, потом перевести в TTime?

А как ты еще из текстового файла хочешь считать?   

superVad, числа же сразу считываются. 

Ну попробуй , что мешает?

Файл F имеет вид, как показано выше.

Выполнение приводит к ошибке 



Это сообщение отредактировал(а) IamDreamer - 24.3.2011, 20:18

TTime - это на самом деле Float а в файле у тебя строка, читай строку и StrToTime используй.

Frees, спасибо. Теперь другая загвоздка: в строковую переменную в результате Readln(filename, stroka) присваивается вся строка, т.е. "11:17:01    1144    268,42    213    65". Как сделать так, чтобы в эту переменную записывалось только время без редактирования файла?

может так, хотя не уверен..

Или:

данные после времени тоже надо из строки stroka брать, Read из файла уже следующую строку данных верноет

Это сообщение отредактировал(а) Frees - 24.3.2011, 21:30

Readln (Filename, Stroka) без ошибок. Если добавить ещё 2 переменные (Readln(Filename, Stroka, A, B)), вылетает та же ошибка. A, B - переменные типа Real.

Это сообщение отредактировал(а) IamDreamer - 24.3.2011, 21:33

Ну использовать другую переменную  или вообще:  

2 superVad.
Ну не хочет автор "распарсивать" строки данного ему файла. Ему хочется использовать процедуру  Read/Readln!
Мне бы тоже хотелось бы этого, если бы я не знал, что "компилер маджик" всё-таки не волшебная палочка.

В общем, дело вот в чём. Файл имеет расширение .csv, в блокноте его содержимое выглядит так:

Readln() не может считать информацию из-за разделителей ';' (пробовал заменить их на пробелы - всё получилось). Запятые, отделяющие целую часть от дробной, вроде переваривает. 

Нужно либо считать все данные в строку, а затем из неё вытащить числа, либо на этапе чтения из файла заставить читать, несмотря на точки с запятыми. Мне второй вариант кажется менее объёмным, но слабо представляю, как его осуществить... 

дак работай с ним как с csv, по средствам TStringList (DelimitedText)

Как то так:


Это сообщение отредактировал(а) superVad - 25.3.2011, 09:52

Тут задание снова поменяли... Новый вид файла с входными данными:


Как учесть то, что последнее значение отделено несколькими пробелами?

может это Tab ?

Добавлено через 2 минуты и 59 секунд
пример написанный IamDreamer должен был переварить пробелы

Попробовал в качестве Delimiter указать ' ' (один пробел) и проверил результат командой 

Результат:

Выходит, количество пробелов ему безразлично .

Добавлено через 59 секунд

SuperVad. Да, переварил. За что ему ещё раз спасибо! А то я уже выматерил тех, кто мне это задание выдал.