VPF::чтение из файла через TMemoryStream - Форум программистов

Vladimir1988

Дата 13.2.2010, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

Подскажите плиз, при чтении из файла через TmemoryStream выходит access violation.

Код


unit TEST1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, ActnMan, ActnCtrls, Grids;

  const
  MaxElements = 10;

type
  TForm1 = class(TForm)
    StringGrid2: TStringGrid;
    LoadButton1: TButton;
    procedure LoadButton1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadButton1Click(Sender: TObject);
 var
  p2: TMemoryStream;
  LE, i:integer;
  k: array[1..MaxElements] of string;
  W: string;
   begin
    p2:= TMemoryStream.Create;
     try
      p2.LoadfromFile('D:\тест\file34.txt'); // загружаю данные из файла в буфер
      p2.position:=0;
      p2.ReadBuffer(PChar(W)^, p2.size); // читаю данные из буфера
      LE := Pos(#13#10, W);
      i:=0;
       while LE> 0 do begin
        inc(i);
        k[i+low(k)-1] := Copy(W, 1, LE - 1);
        delete (W,1,LE+1);
        LE := Pos(#13#10, W);
       end;
      finally
     p2.Free;
    end;
   for i := 1 to MaxElements do
  StringGrid2.Cells[1, I] := (k[i]);
 end;
end.

Matematik

Дата 13.2.2010, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Строка 42, переменная W пустая, сначала надо выделить под неё память, куда писать из p2

Код


SetLength(W, p2.size);
p2.ReadBuffer(Pointer(W)^, p2.size);

Это сообщение отредактировал(а) Matematik - 13.2.2010, 15:17

bems

Дата 14.2.2010, 01:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Matematik, внезапно может оказаться, что нужно в два раза меньше памяти

Код


SetLength(W, p2.size div SizeOf(W[1]));
p2.ReadBuffer(Pointer(W)^, p2.size);

Это сообщение отредактировал(а) bems - 14.2.2010, 01:32

--------------------

Обижено школьников: 8

Matematik

Дата 14.2.2010, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Цитата(bems @ 14.2.2010, 01:31

)

внезапно

для delphi 2009 и выше по причине Unicode

bems

Дата 14.2.2010, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Ну да, я как бы в курсе smile

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »