Обработка больших строк в 16-битной версии Delphi задача далеко непростая. Особенно когда строки являются частью структуры записи и вы хотите передать их в TMemo. В данном совете показано как создать структуру записи размером 1000 символов, прочесть в нее содержимое Memo и затем записать ее обратно в Memo. Основной метод, который мы здесь используем - метод Memo GetTextBuf. Используемая структура записи представляет собой простую строку и массив из 1000 символов, но структура могла бы быть сложнее.
|
Code: |
|
unit URcrdIO;
interface
uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, dbtables;
type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
type TMyRec = record MyArray: array[1..1000] of char; mystr: string; end;
var Form1: TForm1; MyRec: TMyRec; mylist: TStringlist; PMyChar: PChar; myfile: file; mb: TStream; implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(myfile, 'c:\testblob.txt'); rewrite(myfile, 1); fillchar(MyRec.MyArray, sizeof(MyRec.MyArray), #0); pmychar := @MyRec.MyArray; StrPCopy(pmychar, memo1.text); Blockwrite(MyFile, MyRec, SizeOf(MyRec)); closefile(MyFile); end;
procedure TForm1.Button2Click(Sender: TObject); begin
assignfile(myfile, 'c:\testblob.txt'); reset(myfile, 1); fillchar(MyRec.MyArray, sizeof(MyRec.MyArray), #0);
Blockread(MyFile, MyRec, SizeOf(MyRec)); pmychar := @MyRec.MyArray; Memo1.SetTextBuf(pmychar); end;
end.
|
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!