Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #4  
Старый 04.10.2014, 00:30
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Как уже говорил, ничего особенного в коде не вижу.
Давай попробуем переделать на список и объекты.
Код:
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.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:27.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025