Недавно добавленные исходники

•  TDictionary Custom Sort  3 225

•  Fast Watermark Sources  2 990

•  3D Designer  4 750

•  Sik Screen Capture  3 259

•  Patch Maker  3 467

•  Айболит (remote control)  3 527

•  ListBox Drag & Drop  2 903

•  Доска для игры Реверси  80 765

•  Графические эффекты  3 843

•  Рисование по маске  3 171

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 672

•  Рисование Луны  2 500

•  Поворот изображения  2 091

•  Рисование стержней  2 119

•  Paint on Shape  1 523

•  Генератор кроссвордов  2 182

•  Головоломка Paletto  1 730

•  Теорема Монжа об окружностях  2 158

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 016

•  Игра HIP  1 262

•  Игра Go (Го)  1 200

•  Симулятор лифта  1 421

•  Программа укладки плитки  1 177

•  Генератор лабиринта  1 512

•  Проверка числового ввода  1 297

•  HEX View  1 466

•  Физический маятник  1 322

•  Задача коммивояжера  1 357

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Передача массива записей символов в Memo



Юзер заходит в магазин:
- А какой компьютер лучше? Windows или Pentium.

Обработка больших строк в 16-битной версии Delphi задача далеко непростая. Особенно когда строки являются частью структуры записи и вы хотите передать их в TMemo. В данном совете показано как создать структуру записи размером 1000 символов, прочесть в нее содержимое Memo и затем записать ее обратно в Memo. Основной метод, который мы здесь используем - метод Memo GetTextBuf. Используемая структура записи представляет собой простую строку и массив из 1000 символов, но структура могла бы быть сложнее.


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.





Похожие по теме исходники

Передача видео по сети

Передача удаленного экрана по сети (Remote Screen)

Memory Manager

Shared Memory

 

Numbers Memory

xIPMemo

Memo Edit Errors Messages

Memory Monitor

 

Memory Using in System

Simple Memory Seeker

Process Memory Map




Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте