VPF::Таблица Атомов - Форум программистов

ctranik

Дата 4.3.2006, 17:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет

Предположим что программа помещает в Таблицу Атомов какие-то строки.

Подскажите как теперь вытащить все эти строки из Таблицы Атомов ?
А то у меня выскакивает длинющая цепь чисел, заместо нужных мне строк

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin

for i:=0 to memo1.Lines.Count-1 do
    AddAtom(PChar(memo1.Lines.Strings[i])) ;

memo1.Lines.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  p:PChar;
  i:Word;
begin

GetMem(p, 255);
 for i:=0 to $FFFF do begin
     GetAtomName(i, p, 255);
     if length(strpas(p))>0 then  memo1.Lines.Add(strpas(p));
 end;//for

 FreeMem(p);
end;


end.

Заранее благодарен.

Girder

Дата 6.3.2006, 13:30 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

Цитата

AddAtom returns a string atom whose value is in the range 0xC000 through 0xFFFF

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

Как слышим, так и пишим.
Истина где-то там...

Romikgy

Дата 6.3.2006, 13:54 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


GetMem(p, 255);
 for i:=0 to $FFFF do begin
     GlobalGetAtomName(i, p, 255);
     if length(strpas(p))>0 then  memo1.Lines.Add(strpas(p));
 end;//for
 FreeMem(p);

так пойдет?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 6.3.2006, 14:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(Girder @ 6.3.2006, 13:30

)

value is in the range 0xC000 through 0xFFFF

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