Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

Как лучше хранить координаты точек в файле?   Найти похожие ветки 

← →
Дмитрий_177   (2006-02-21 21:19) [0]

Как лучше хранить координаты точек в файле? У меня есть много точек с координатами (x, y), как лучше всего сохранять их в файле?

---

← →
Zeqfreed ©   (2006-02-21 21:31) [1]

Полагаю, двойками целочисленных значений фиксированного размера.

---

← →
Дмитрий_177   (2006-02-21 21:39) [2]

а как это? я сначала думал так: два текстовых вайла... в одном x-ы, в другом y-ки.. и первая строка одного и второго файла и будут координаты... но тут 2-а файла и строку переводить из string в integer... это на скорости мне кажется скажется...

---

← →
Джо ©   (2006-02-21 21:45) [3]

Можно в типизированных файлах (file of TPoint), можно не типизированных (file). Да как угодно можно.

---

← →
Джо ©   (2006-02-21 21:46) [4]

У тебя точки в какой структуре данных хранятся?

---

← →
Дмитрий_177   (2006-02-21 21:49) [5]

еще пока никак.... я их из bmp файла считываю... т.е. определенным цветом точки... чтобы каждый раз не тратить время напоиск этих точек определенным каким-то цветом, я хочу их как-то сохранить...

---

← →
Дмитрий_177   (2006-02-21 22:08) [6]

А ктонибудь знает модуль DataFile? я им пользуюсь и сохраняю все... это как ini-файлы только лучше

---

← →
Джо ©   (2006-02-21 22:29) [7]

> [5] Дмитрий_177   (21.02.06 21:49)
> еще пока никак.... я их из bmp файла считываю

Куда?

---

← →
Zeqfreed ©   (2006-02-21 22:35) [8]


type
 TDynPointsArray = array of TPoint;

. . .

function SavePoints(const Filename : String; const Points : array of TPoint) : Boolean;
type
 TPointsArray = array[0..0] of TPoint;
var
 f, i : Integer;
 buf : Pointer;
begin
 Result := false;

 f := FileCreate(Filename, fmCreate);
 if (f = -1) then Exit;
  GetMem(buf, SizeOf(TPoint) * Length(Points));
  try
   for i := Low(Points) to High(Points) do
    TPointsArray(buf^)[i] := Points[i];

   FileWrite(f, buf^, SizeOf(TPoint) * Length(Points));
   Result := true;
  finally
   FreeMem(buf);
  end;
 try

 finally
  FileClose(f);
 end;
end;

function ReadPoints(const Filename : String; var Points : TDynPointsArray) : Boolean;
type
 TPointsArray = array[0..0] of TPoint;
var
 f, i, size : Integer;
 buf : Pointer;
begin
 Result := false;

 f := FileOpen(Filename, fmOpenRead or fmShareDenyWrite);
 if (f = -1) then Exit;

 try
  size := GetFileSize(f, nil);

  GetMem(buf, size);
  try
   if FileRead(f, buf^, size) = size then begin
    SetLength(Points, size div SizeOf(TPoint) + 1);

    for i := 0 to (size div SizeOf(TPoint)) do
     Points[i] := TPointsArray(buf^)[i];

    Result := true;
   end;
  finally
   FreeMem(buf);
  end;
 finally
  FileClose(f);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 a, b : TDynPointsArray;
 i : Integer;
 s : String;
begin
 Randomize();

 SetLength(a, 2);
 for i := Low(a) to High(a) do begin
  a[i].X := Random(High(Integer));
  a[i].Y := Random(High(Integer));
 end;

 if SavePoints("C:\1.points", a) then
  if ReadPoints("C:\1.points", b) then begin
   for i := Low(a) to High(a) do begin
    s := s + Format("%d, %d"#13#10, [b[i].X, b[i].Y]);
   end;

   ShowMessage(s);
  end;
end;

---

← →
Джо ©   (2006-02-21 23:13) [9]

Такое вроде по-проще будет ;)


unit PointsUtils;

interface
uses Windows, SysUtils, Classes;

type

 TPoints = class
 private
   FList: TList;
   procedure SetItems(Index: Integer; const Value: TPoint);
   function GetItems(Index: Integer): TPoint;
   function GetCount: Integer;
 public
   constructor Create();
   destructor Destroy; override;
   function Add (X,Y: Integer): Integer; overload;
   function Add (APoint: TPoint): Integer; overload;
   property Count: Integer read GetCount;
   property Items[Index: Integer]: TPoint read GetItems write SetItems; default;
   procedure Clear;
   procedure SaveToStream (AStream: TStream);
   procedure SaveToFile (AFileName: string);
   procedure LoadFromStream (AStream: TStream);
   procedure LoadFromFile (AFileName: string);
 end;

implementation

type
 PPoint = ^TPoint;

{ TPoints }

function TPoints.Add(X, Y: Integer): Integer;
var
 Pt: TPoint;
begin
 Pt.X := X;
 Pt.Y := Y;
 Result := Add (Pt)
end;

function TPoints.Add(APoint: TPoint): Integer;
var
 NewPt: PPoint;
begin
 GetMem (NewPt,SizeOf(TPoint));
 NewPt^ := APoint;
 Result := FList.Add(NewPt)
end;

procedure TPoints.Clear;
var
 I: Integer;
begin
 for I := Count - 1 downto 0 do
   FreeMem (FList[I]);
 FList.Clear;
end;

constructor TPoints.Create;
begin
 inherited;
 FList := TList.Create;
end;

destructor TPoints.Destroy;
begin
 Clear;
 FList.Free;
 inherited;
end;

function TPoints.GetCount: Integer;
begin
 Result := FList.Count
end;

function TPoints.GetItems(Index: Integer): TPoint;
begin
 Result := PPoint(FList[Index])^
end;

procedure TPoints.LoadFromFile(AFileName: string);
var
 Fs: TFileStream;
begin
 Fs := TFileStream.Create(AFileName,fmOpenRead);
 try
   LoadFromStream(Fs);
 finally
   Fs.Free;
 end;
end;

procedure TPoints.LoadFromStream(AStream: TStream);
var
 I,
 Cnt: Integer;
 Pt: TPoint;
begin
 Clear;
 AStream.Read(Cnt,SizeOf(Cnt));
 for I := 0 to Cnt-1 do
 begin
   AStream.Read(Pt,SizeOf(Pt));
   Add (Pt)
 end;
end;

procedure TPoints.SaveToFile(AFileName: string);
var
 Fs: TFileStream;
begin
 Fs := TFileStream.Create(AFileName,fmCreate);
 try
   SaveToStream(Fs);
 finally
   Fs.Free;
 end;
end;

procedure TPoints.SaveToStream(AStream: TStream);
var
 I: Integer;
 Pt: TPoint;
 Cnt: Integer;
begin
 // количество точек
 Cnt := Count;
 AStream.Write(Cnt,SizeOf(Cnt));

 // сами точки
 for I := 0 to Count - 1 do
 begin
   Pt := Self[I];
   AStream.Write(Pt,SizeOf(TPoint));
 end;
end;

procedure TPoints.SetItems(Index: Integer; const Value: TPoint);
begin
 PPoint(FList[Index])^ := Value
end;

end.


Пример использования:
---------------------

procedure TForm18.Button1Click(Sender: TObject);
var
 APoints: TPoints;
 I: Integer;
begin
 APoints := TPoints.Create;
 try

   APoints.Add(10,20);
   APoints.Add(30,40);
   APoints.Add(50,60);

   APoints.SaveToFile("d:\points.dat");
   
   APoints.Clear;

   APoints.LoadFromFile ("d:\points.dat");
   for I := 0 to APoints.Count - 1 do
     ShowMessageFmt("%d,%d",[APoints[I].X,APoints[I].Y]);
     
 finally
   APoints.Free;
 end;
end;


---

← →
Zeqfreed ©   (2006-02-21 23:37) [10]

> Такое вроде по-проще будет ;)

Сложно сказать наверняка :)
Было бы больше пользы, конечно, если бы автор ещё свой вариант составил.

---

← →
Дмитрий_177   (2006-02-21 23:54) [11]

Я вот разбираюсь... хочу написать еще две функции в DataFile, какраз для считывания точек... но что-то никак... если кто не знает могу скинуть модуль, мне он нравится )))

---

← →
Дмитрий_177   (2006-02-21 23:55) [12]

в этих примерах при чтении из файла мы знаем что ф этом файле только точки... а вдруг там еще чтонибудь будет записано?

---

← →
Джо ©   (2006-02-22 00:01) [13]

> [12] Дмитрий_177   (21.02.06 23:55)
> в этих примерах при чтении из файла мы знаем что ф этом
> файле только точки... а вдруг там еще чтонибудь будет записано?

Что значит "вдруг"?

---

← →
Дмитрий_177   (2006-02-22 00:11) [14]

как в ini-файлах.. и строки и числа и др. т.е. не только точки...

---

← →
Дмитрий_177   (2006-02-22 00:12) [15]

но повторюсь... функцией хотел бы сохранять несколько точек в одном параметре секции...

---

← →
Джо ©   (2006-02-22 00:19) [16]

Смотри класс TIniFile и его методы WriteInteger и ReadInteger.

---

← →
Дмитрий_177   (2006-02-22 00:22) [17]

да, но там же вроде как фиксированный размер типа Integer, а тут массив из TPointer, как мне узнать длинну массива или как-то там еще, чтобы прочитать его

---

← →
Джо ©   (2006-02-22 00:29) [18]

> , как мне узнать длинну массива

High

---

← →
Дмитрий_177   (2006-02-22 00:36) [19]

у меня что-то не получается (((

функции из DataFile для чтения и записи данных

function TDataFile.WriteData(Section, Ident: string; pBuf: Pointer; Count: Integer): Integer;
var
 Hdr : IDataHeader;
 P   : Pointer;
begin
 Delete(Section, Ident);
 FFile.Seek(0, soFromEnd);
 { feel header }
 Hdr.Id := DF_HEADER_IDENT;
 StrPCopy(Hdr.Section, Section);
 StrPCopy(Hdr.Ident, Ident);
 Hdr.Size := Count;
 { xor }
 EncryptBuf(@Hdr, SizeOf(IDataHeader));
 { write header }
 Result := FFile.Write(Hdr, SizeOf(IDataHeader));
 if( Result > -1 )then
 begin
  GetMem(P, Count);
  try
   Move(pBuf^, P^, Count);
   { xor data }
   EncryptBuf(P, Count);
   { write data }
   Result := FFile.Write(P^, Count);
  finally
   FreeMem(P, Count);
  end;
 end;
end;

function TDataFile.ReadData(Section, Ident: string; pBuf: Pointer): Integer;
var
 Found   : boolean;
 Hdr     : IDataHeader;
begin
 Found := FindIdent(Section, Ident, @Hdr);
 if( Found  )then
 begin
  Result := FFile.Read(pBuf^, Hdr.Size);
  DecryptBuf(pBuf, Hdr.Size);
 end else
  Result := -1;
end;


программа:

type
TDynPointsArray = array of TPoint;

procedure TForm1.Button1Click(Sender: TObject);  // запись
var
 a: TDynPointsArray;
 i: integer;
begin
SetLength(a, 2);
for i := Low(a) to High(a) do
 begin
 a[i].X := Random(500);
 a[i].Y := Random(500);
 end;

with TDataFile.Create("C:\1.points") do
 try
 WriteData("1", "1", @a,  SizeOf(TPoint) * Length(a));

 finally
 Free;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);   // чтение
var
 Buf: array[0..1023]of Char;
 a: TDynPointsArray;
 i, Count: integer;
 s: string;
begin
with TDataFile.Create("C:\1.points") do
 try
 Count := ReadData("1", "1", @Buf);
 if (Count >= SizeOf(TPoint)) then
   Move(Buf, a, SizeOf(TPoint));

 finally
 Free;
 end;

for i := Low(a) to High(a) do
 begin
 s := s + IntToStr(a[i].X) + " " + IntToStr(a[i].Y) + "   ";
 end;

ShowMessage(s);
end;


---

← →
Дмитрий_177   (2006-02-22 15:37) [20]

я наверно поздно вопрос задал и с появлением новых он затерялся...

---

← →
Дмитрий_177   (2006-02-24 23:42) [21]

А можно ли такой массив перевести в поток? там есть функция WriteStream, сохраняющая поток...

---

← →
Дмитрий_177   (2006-02-24 23:43) [22]

но потом обратно конечно... из потока в массив для чтения )))

---

← →
TStas ©   (2006-02-24 23:50) [23]

Если координаты - TPoint, то FIle of TPOint Я, например, только TFIleStream"Ом и пользуюсь В нем замечательно храняться ЛЮБЫЕ структуры. Sz:=fs.Seek(0, soFromEnd) даст вам размер вашего файла в байтах, дальше, думаю, понятно

---

← →
Дмитрий_177   (2006-02-24 23:53) [24]

TStas © вы не поняли... у меня в одном файле не только точки хранятся... но и числа там разные, и всякая другая информация...

---

← →
Zeqfreed ©   (2006-02-24 23:58) [25]

23] TStas ©   (24.02.06 23:50)

> Sz:=fs.Seek(0, soFromEnd) даст вам размер вашего файла в
> байтах

Согласно справке, Seek изменит текущую позицию в потоковом ресурсе. А вот TFileStream.Size как раз вернет размер файла.

[24] Дмитрий_177   (24.02.06 23:53)

> у меня в одном файле не только точки хранятся... но и числа
> там разные, и всякая другая информация...

Нужно использовать нетипизированные файлы. А для хранения числовых данных использование текстовых файлов, а тем более каких-то ini-подобных оберток, как мне кажется, жутко неудобно.

---

← →
Джо ©   (2006-02-25 00:17) [26]

> [24] Дмитрий_177   (24.02.06 23:53)
> у меня в одном файле не только точки
> хранятся... но и числа там разные, и всякая другая информация...

Тут уже советов надавали — море. На все случаи жизни. А ты все повторяешь одно и тоже, вероятно, не дав себе труда хотя бы понять то, что тебе писали.

---

← →
TStas ©   (2006-02-25 00:35) [27]

А как раз понял, почему TFileStream и посоветовал У меня в нем хранилась элекктронная таблица, наподобие экселевской, с форматированием, текстом и формулой произвольной длинны, нй и координатами, конечно.

---

← →
Джо ©   (2006-02-25 00:38) [28]

> [27] TStas ©   (25.02.06 00:35)
> А как раз понял, почему TFileStream и посоветовал

И правильно, кстати, посоветовал. :)

---

← →
Дмитрий_177   (2006-02-25 00:42) [29]

а как мне перевести массив в поток? какой функцией? подскажите пожалуйста

---

← →
Дмитрий_177   (2006-02-25 00:43) [30]

ну или не только массив... вообще любую переменную или класс... TStas © как вы перевели таблицу в поток?

---

← →
Джо ©   (2006-02-25 00:44) [31]

>
>
> [29] Дмитрий_177   (25.02.06 00:42)
> а как мне перевести массив в поток? какой функцией? подскажите
> пожалуйста

Ты читал посты: [8] и [9]? Разбирался с ними? Какие вопросы возникли в процессе разбора?
Там, между прочим, готовые рабочие примеры были...

---

← →
Дмитрий_177   (2006-02-25 00:52) [32]

блин... опять снова здорова.....((((((( но там же подразумевается что во всем файле будут храниться только точки и ничего больше... поетому мы можем написать эти строки при чтении из [8]:

size := GetFileSize(f, nil);
...

if FileRead(f, buf^, size) = size then begin
   SetLength(Points, size div SizeOf(TPoint) + 1);

т.е. работать с размером файла, неволнуясь ч в том что там еще что-то может храниться...

или я не правильно понимаю эти примеры?

---

← →
Джо ©   (2006-02-25 01:02) [33]

> [32] Дмитрий_177   (25.02.06 00:52)
> но там же подразумевается
> что во всем файле будут храниться только точки и ничего
> больше...

Ничего такого там не подразумевается. Напротив, в моем примере сделано все, чтобы можно было легко расширить класс для хранения записи/чтения чего-угодно.

---

← →
Джо ©   (2006-02-25 01:05) [34]

В поток что угодно записать можно. И прочитать.

---

← →
Дмитрий_177   (2006-02-25 01:33) [35]

так... завтра начинаю все сначала читать про потоки и про файлы... спасибо, Джо, а то я не понимал сначала... и писал ерунду...)))

---

← →
Дмитрий_177   (2006-02-27 15:51) [36]

Джо, я сейчас расширяю ваш класс для хранения в нем изображений еще... У меня вопрос в том, что функциям "Add" надо всегда "overload;" приписывать? это же вроде как для того чтобы переписать функцию... а если я функцию не "Add" а "AddPoint" назову? всеравно "overload;" писать?

---

← →
Джо ©   (2006-02-27 16:01) [37]

> а если я функцию не "Add" а "AddPoint" назову? всеравно
> "overload;" писать?

Нет, конечно. Overload нужен для объявления методов с одинаковыми именами, имеющими разные параметры.

---

← →
Дмитрий_177   (2006-02-27 16:30) [38]

спасибо ))) еще один технический вопросик... при использовании раньше подобных ini-оберткок, как сказал Zeqfreed, можно было например сразу считать изображение в какойнибудь компонент, например в кнопку, а тут считывается сразу все, и будет храниться в памяти... ведь так? и потом оттуда уже записываем в кнопку или еще там куда... я так это понимаю?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.56 MB
Время: 0.014 c