Это библиотека расстановки переносов от Synopse delphi с открытым исходным кодом.
Демо представляет собой консольное приложение. Я не знаю, как использовать его в приложении с графическим интерфейсом.
Ниже мой тест, но не работа. Он не отображает слово с дефисом (или разделителем). Библиотеку можно скачать здесь:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, hyphen, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure testhyphenator;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.testhyphenator;
var
h: THyphen;
s: string;
F, L: Integer;
begin
s := 'hyph_en_US.txt'; //this is from the folder, is that correct to call?
if FileExists(s) then
begin
F := FileOpen(s, fmOpenRead);
L := FileSeek(F, 0, soFromEnd);
if L > 0 then
begin
SetLength(s, L);
FileSeek(F, 0, soFromBeginning);
FileRead(F, s[1], L);
end;
FileClose(F);
end;
h := THyphen.Create(s);
h.Execute('pronunciation'); //is this correct?
ShowMessage(h.filllist); //not display hyphenated word
end;
Он не отображает слово через дефис. В демо я тоже запутался в конструкторе:
H := THyphen.create('ISO8859-1'#10'f1f'#10'if3fa/ff=f,2,2'#10'tenerif5fa');
writeln('"',H.Execute('SchiffahrT'),'"'); writeln(H.FillList);
...
Автор также приложил файл obj. Если я хочу скомпилировать его в один exe, как это сделать?
Не могли бы вы помочь мне понять, как правильно его использовать?
Большое спасибо.
{$LINK 'file.obj'}
в вашем блоке. - person TLama   schedule 12.04.2012