![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#4
|
|||
|
|||
![]() Как уже говорил, ничего особенного в коде не вижу.
Давай попробуем переделать на список и объекты. Код:
type TDataObject = class X, Y, Z : Double; // тип real лучше не использовать. end; procedure TForm1.Button1Click(Sender: TObject); var myFile : TextFile; AData : TObjectList; ADataObj : TDataObject; text1: string; n : Integer; begin Try begin AData := TObjectList.Create(True); // открытие файла для чтения AssignFile(myFile, 'dump.txt'); Reset(myFile); while not Eof(myFile) do begin Readln(myFile,text1); ADataObj := TDataObject.Create; ADataObj.x := readnumber(text1,2); ADataObj.y := readnumber(text1,3); ADataObj.z := readnumber(text1,4); AData.Add(ADataObj); end; // Закрытие файла CloseFile(myFile); // Диагностика n := AData.Count-1; ADataObj := AData[n] As TDataObject; ShowMessage( Format('%d %f %f %f', [n,ADataObj.x,ADataObj.y,ADataObj.z])); Finally AData.Free; end; end; Если не поможет, то надо будет "рыть" твою процедуру парсинга. ЗЫ. Кстати, в такой редакции можешь выкинуть свою процедуру определения длинны файла ![]() Последний раз редактировалось lmikle, 04.10.2014 в 00:33. |