Использование BlockRead

[Никки]

Пишу:

var
        f:file;
        Buf: array[1..2048] of Char;
begin
        AssignFile(f,'А.dat');
        Reset(f,1);
        BlockRead(f,buf,8);
          //  здесь у меня в переменной buf текст
        BlockRead(f,buf,2);
          //  здесь у меня в переменной buf число
end;

мне необходимо плучить этот текст и число в обычных форматах Integer и String?? А как низнаю....

[B_N]

Что-нибудь вроде:

type
	rec = packed record
		text 	: array [0..7] of char;
		num		: word;
	end;
..................
var
	r : rec;
....................
	BlockRead(f,r, 1);

[mihali4]

Можно и просто дополнить:

var   
        f:file;   
        Buf: array[1..2048] of Char;   
begin   
        AssignFile(f,'C:\A.dat');   
        Reset(f,1);   
        BlockRead(f,buf,8);   
          //  здесь у меня в переменной buf текст, покажем его
          Label1.Caption:=Copy(buf,1,8);
        BlockRead(f,buf,2);
          //  здесь у меня в переменной buf число, покажем и его
          Label2.Caption:=IntToStr(StrToInt(Copy(buf,1,2)));
end;

[Никки]

B_N, что ты написал, я вообще не понял...
mihali4, так у меня ничего не выходит!! В обоих случаях строка получается пустой!

[mihali4]

B_N, что ты написал, я вообще не понял...

У нас принято на "вы"...
А понимание придет, попозже...

mihali4, так у меня ничего не выходит!! В обоих случаях строка получается пустой!

Значит в файле записано не то... Проверено лично - работает.
Предлагаю поставить брэкпойнт на строку 10, посмотреть, что в буфере
и убедиться, что там первые 8 членов - не строка из 8-ми символов...

[B_N]

Сообщение от Никки

B_N, что ты написал, я вообще не понял...

Для тех, кто не понял, повторяю .....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;


const
    fname = 'c:\12345678.123';

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    WriteButton: TButton;
    ReadButton: TButton;
    procedure WriteButtonClick(Sender: TObject);
    procedure ReadButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


    rec = packed record
        s : string[32];
        i : integer;
        d : double;
    end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WriteButtonClick(Sender: TObject);
var
    f : file;
    r : rec;
begin
    r.s := Edit1.Text;
    r.i := StrToIntDef(Edit2.Text, -1);
    r.d := StrToFloatDef(Edit3.Text, NaN);
    AssignFile(f, fname);
    Rewrite(f, sizeof(rec));
    BlockWrite(f, r, 1);
    CloseFile(f);

    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
end;

procedure TForm1.ReadButtonClick(Sender: TObject);
var
    f : file;
    r : rec;
begin
    AssignFile(f, fname);
    ReSet(f, sizeof(rec));
    BlockRead(f, r, 1);
    CloseFile(f);

    Edit1.Text := r.s;
    Edit2.Text := IntToStr(r.i);
    Edit3.Text := FloatToStr(r.d);

end;

end.

[Никки]

Когда читается строка в buf вот что попадает:

(#0, #16, #0, #1, #0, #0, #0, #0, 'Ё', 'q', #20, #0, '°', 'q', #20, #0, #0, ......)

всю строку копировать не стал... не знаю что это означает!

[mihali4]

Сообщение от Никки

Когда читается строка в buf вот что попадает:

(#0, #16, #0, #1, #0, #0, #0, #0, 'Ё', 'q', #20, #0, '°', 'q', #20, #0, #0, ......)

всю строку копировать не стал... не знаю что это означает!

Это означает пустую строку, поскольку она начинается с нуля.
Прикрепите к следующему своему сообщению файл А.dat, который вы читаете, посмотрим, что там за заголовок. По содержимому буфера видно, что файл не является текстовым.

[Никки]

Вот! Прикрепил файл!

[mihali4]

Сообщение от Никки

Вот! Прикрепил файл!

Ну и где же там текст и число?
Вот вам нормальный файл с текстом и числом, проверяйте программу...
Вложение 3358