Есть код нужно сделать программу

[Candide]

Помогите сделать из этого то что надо.
PS я не знаю как должны стоять кнопки и остальное и сколько их вообще.

PHP код:

unit Unit1;

interface

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

type
TfmMain = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Label2: TLabel;
Button1: TButton;
Label1: TLabel;
Label3: TLabel;
Edit1: TEdit;
StaticText1: TStaticText;
LinkLabel1: TLinkLabel;
procedure Button1Click(Sender: TObject);
procedure Memo1Click(Sender: TObject);
private
public
end;

var
fmMain: TfmMain;

implementation

{$R *.DFM}

function RusToUpper(Str: String): String;
const
LetL = 'abcdefghijklmnopqrstuvwxyz';
LetU = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i: Integer;
begin
Result:=Str;
for i:=1 to Length(Str) do
if Pos(Str[i],LetL) > 0 then
Result[i]:=LetU[Pos(Str[i],LetL)];
end;


function Transliterate(s: string): string;
var
i: integer;
t: string;
begin
for i:=1 to Length(s) do
begin
case s[i] of

'а': t:=t+chr(70);
'б': t:=t+chr(18;
'в': t:=t+chr(6;
'г': t:=t+chr(85);
'д': t:=t+chr(76);
'е': t:=t+chr(84);
'ё': t:=t+chr(192);
'ж': t:=t+chr(186);
'з': t:=t+chr(80);
'и': t:=t+chr(66);
'й': t:=t+chr(81);
'к': t:=t+chr(82);
'л': t:=t+chr(75);
'м': t:=t+chr(86);
'н': t:=t+chr(89);
'о': t:=t+chr(74);
'o': t:=t+chr(74);
'п': t:=t+chr(71);
'р': t:=t+chr(72);
'с': t:=t+chr(67);
'т': t:=t+chr(7;
'у': t:=t+chr(69);
'ф': t:=t+chr(65);
'х': t:=t+chr(219);
'ц': t:=t+chr(87);
'ч': t:=t+chr(8;
'ш': t:=t+chr(73);
'щ': t:=t+chr(79);
'ъ': t:=t+chr(221);
'ы': t:=t+chr(83);
'ь': t:=t+chr(77);
'э': t:=t+chr(222);
'ю': t:=t+chr(190);
'я': t:=t+chr(90);

' ': t:=t+chr(32);
'.': t:=t+chr(191);
',': t:=t+chr(16)+chr(191);
'!': t:=t+chr(16)+chr(49);
'?': t:=t+chr(16)+chr(55);
':': t:=t+chr(16)+chr(54);
'-': t:=t+chr(189);
'"': t:=t+chr(16)+chr(50);
'(': t:=t+chr(16)+chr(57);
')': t:=t+chr(16)+chr(4;
'№': t:=t+chr(16)+chr(51);
'А': T:=T+chr(20)+chr(70)+chr(20);
'Б': T:=T+chr(20)+chr(18+chr(20);
'В': T:=T+chr(20)+chr(6+chr(20);
'Г': T:=T+chr(20)+chr(85)+chr(20);
'Д': T:=T+chr(20)+chr(76)+chr(20);
'Е': T:=T+chr(20)+chr(84)+chr(20);
'Ё': T:=T+chr(20)+chr(192)+chr(20);
'Ж': T:=T+chr(20)+chr(186)+chr(20);
'З': T:=T+chr(20)+chr(80)+chr(20);
'И': T:=T+chr(20)+chr(66)+chr(20);
'Й': T:=T+chr(20)+chr(81)+chr(20);
'К': T:=T+chr(20)+chr(82)+chr(20);
'Л': T:=T+chr(20)+chr(75)+chr(20);
'М': T:=T+chr(20)+chr(86)+chr(20);
'Н': T:=T+chr(20)+chr(89)+chr(20);
'О': T:=T+chr(20)+chr(74)+chr(20);
'П': T:=T+chr(20)+chr(71)+chr(20);
'Р': T:=T+chr(20)+chr(72)+chr(20);
'С': T:=T+chr(20)+chr(67)+chr(20);
'Т': T:=T+chr(20)+chr(7+chr(20);
'У': T:=T+chr(20)+chr(69)+chr(20);
'Ф': T:=T+chr(20)+chr(65)+chr(20);
'Х': T:=T+chr(20)+chr(219)+chr(20);
'Ц': T:=T+chr(20)+chr(87)+chr(20);
'Ч': T:=T+chr(20)+chr(8+chr(20);
'Ш': T:=T+chr(20)+chr(73)+chr(20);
'Щ': T:=T+chr(20)+chr(79)+chr(20);
'Ъ': T:=T+chr(20)+chr(221)+chr(20);
'Ы': T:=T+chr(20)+chr(83)+chr(20);
'Ь': T:=T+chr(20)+chr(77)+chr(20);
'Э': T:=T+chr(20)+chr(222)+chr(20);
'Ю': T:=T+chr(20)+chr(190)+chr(20);
'Я': T:=T+chr(20)+chr(90)+chr(20);
else t:=t+s[i];
end;
end;
Result:=t;
end;

procedure TfmMain.Button1Click(Sender: TObject);
const ShiftLit: set of char = [',','!'];
var
i,t: integer; c:char; str:string;
begin
t:=strtoint(edit1.text);
Memo2.Lines.Clear;
for i:=0 to Memo1.Lines.Count-1 do
Memo2.Lines.Add(Transliterate(Memo1.Lines.Strings[i]));

str:=RusToUpper(memo2.text)+' ';
i:=0;
sleep(2000);
repeat
i:=i+1;
c:=str[i] ;
sleep(t);
keybd_event(ord(C) , 0, 0, 0);
Keybd_event(20,0, KEYEVENTF_KEYUP, 0);
Keybd_event(32,0, KEYEVENTF_KEYUP, 0);
if ord(c) = 16 then
sleep(1)
else
Keybd_event(16,0, KEYEVENTF_KEYUP, 0)

until i> length(str);



end;

procedure TfmMain.Memo1Click(Sender: TObject);
begin
memo1.Clear;
end;

end. 


[Serge_Bliznykov]

у Вас в коде формы кнопка всего одна.

а вообще на форме есть

Memo1: TMemo; 
Memo2: TMemo; 
Label2: TLabel; 
Button1: TButton; 
Label1: TLabel; 
Label3: TLabel; 
Edit1: TEdit; 
StaticText1: TStaticText; 
LinkLabel1: TLinkLabel;

Два мемо, три лейблы, одна кнопка, один Edit, один TStaticText, один TLinkLabel

[newerow1989]

Меня убивает выражение:

function Transliterate(s: string): string; 
var 
i: integer; 
t: string; 
begin 
for i:=1 to Length(s) do 
begin 
case s[i] of 

'а': t:=t+chr(70); 
'б': t:=t+chr(18; 
'в': t:=t+chr(6; 
'г': t:=t+chr(85); 
'д': t:=t+chr(76);

Чему изначально равно t?
Почему нет закрывающейся круглой скобки после числа перед двоеточием?

И главный вопрос: А что программа делает?

[Candide]

Сообщение от Serge_Bliznykov

Два мемо, три лейблы, один Edit, один TStaticText, один TLinkLabel

Где узнать что такое
Memo - ?
Label - как я понял просто надпись.
Edit - окно правки текста?
TStaticText - ?
TLinkLabel - ?



_____

Сообщение от newerow1989

Почему нет закрывающейся круглой скобки после числа перед двоеточием?

'в': t:=t+chr(6;

<-Здесь после шестерки скобки нет? Я ошибся в коде; не правильно скопировал; вот правильный:

PHP код:

unit Unit1;

interface

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

type
TfmMain = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Label2: TLabel;
Button1: TButton;
Label1: TLabel;
Label3: TLabel;
Edit1: TEdit;
StaticText1: TStaticText;
LinkLabel1: TLinkLabel;
procedure Button1Click(Sender: TObject);
procedure Memo1Click(Sender: TObject);
private
public
end;

var
fmMain: TfmMain;

implementation

{$R *.DFM}

function RusToUpper(Str: String): String;
const
LetL = 'abcdefghijklmnopqrstuvwxyz';
LetU = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i: Integer;
begin
Result:=Str;
for i:=1 to Length(Str) do
if Pos(Str[i],LetL) > 0 then
Result[i]:=LetU[Pos(Str[i],LetL)];
end;


function Transliterate(s: string): string;
var
i: integer;
t: string;
begin
for i:=1 to Length(s) do
begin
case s[i] of

'а': t:=t+chr(70);
'б': t:=t+chr(188);
'в': t:=t+chr(68);
'г': t:=t+chr(85);
'д': t:=t+chr(76);
'е': t:=t+chr(84);
'ё': t:=t+chr(192);
'ж': t:=t+chr(186);
'з': t:=t+chr(80);
'и': t:=t+chr(66);
'й': t:=t+chr(81);
'к': t:=t+chr(82);
'л': t:=t+chr(75);
'м': t:=t+chr(86);
'н': t:=t+chr(89);
'о': t:=t+chr(74);
'o': t:=t+chr(74);
'п': t:=t+chr(71);
'р': t:=t+chr(72);
'с': t:=t+chr(67);
'т': t:=t+chr(78);
'у': t:=t+chr(69);
'ф': t:=t+chr(65);
'х': t:=t+chr(219);
'ц': t:=t+chr(87);
'ч': t:=t+chr(88);
'ш': t:=t+chr(73);
'щ': t:=t+chr(79);
'ъ': t:=t+chr(221);
'ы': t:=t+chr(83);
'ь': t:=t+chr(77);
'э': t:=t+chr(222);
'ю': t:=t+chr(190);
'я': t:=t+chr(90);

' ': t:=t+chr(32);
'.': t:=t+chr(191);
',': t:=t+chr(16)+chr(191);
'!': t:=t+chr(16)+chr(49);
'?': t:=t+chr(16)+chr(55);
':': t:=t+chr(16)+chr(54);
'-': t:=t+chr(189);
'"': t:=t+chr(16)+chr(50);
'(': t:=t+chr(16)+chr(57);
')': t:=t+chr(16)+chr(48);
'№': t:=t+chr(16)+chr(51);
'А': T:=T+chr(20)+chr(70)+chr(20);
'Б': T:=T+chr(20)+chr(18+chr(20);
'В': T:=T+chr(20)+chr(6+chr(20);
'Г': T:=T+chr(20)+chr(85)+chr(20);
'Д': T:=T+chr(20)+chr(76)+chr(20);
'Е': T:=T+chr(20)+chr(84)+chr(20);
'Ё': T:=T+chr(20)+chr(192)+chr(20);
'Ж': T:=T+chr(20)+chr(186)+chr(20);
'З': T:=T+chr(20)+chr(80)+chr(20);
'И': T:=T+chr(20)+chr(66)+chr(20);
'Й': T:=T+chr(20)+chr(81)+chr(20);
'К': T:=T+chr(20)+chr(82)+chr(20);
'Л': T:=T+chr(20)+chr(75)+chr(20);
'М': T:=T+chr(20)+chr(86)+chr(20);
'Н': T:=T+chr(20)+chr(89)+chr(20);
'О': T:=T+chr(20)+chr(74)+chr(20);
'П': T:=T+chr(20)+chr(71)+chr(20);
'Р': T:=T+chr(20)+chr(72)+chr(20);
'С': T:=T+chr(20)+chr(67)+chr(20);
'Т': T:=T+chr(20)+chr(78)+chr(20);
'У': T:=T+chr(20)+chr(69)+chr(20);
'Ф': T:=T+chr(20)+chr(65)+chr(20);
'Х': T:=T+chr(20)+chr(219)+chr(20);
'Ц': T:=T+chr(20)+chr(87)+chr(20);
'Ч': T:=T+chr(20)+chr(88)+chr(20);
'Ш': T:=T+chr(20)+chr(73)+chr(20);
'Щ': T:=T+chr(20)+chr(79)+chr(20);
'Ъ': T:=T+chr(20)+chr(221)+chr(20);
'Ы': T:=T+chr(20)+chr(83)+chr(20);
'Ь': T:=T+chr(20)+chr(77)+chr(20);
'Э': T:=T+chr(20)+chr(222)+chr(20);
'Ю': T:=T+chr(20)+chr(190)+chr(20);
'Я': T:=T+chr(20)+chr(90)+chr(20);
else t:=t+s[i];
end;
end;
Result:=t;
end;

procedure TfmMain.Button1Click(Sender: TObject);
const ShiftLit: set of char = [',','!'];
var
i,t: integer; c:char; str:string;
begin
t:=strtoint(edit1.text);
Memo2.Lines.Clear;
for i:=0 to Memo1.Lines.Count-1 do
Memo2.Lines.Add(Transliterate(Memo1.Lines.Strings[i]));

str:=RusToUpper(memo2.text)+' ';
i:=0;
sleep(2000);
repeat
i:=i+1;
c:=str[i] ;
sleep(t);
keybd_event(ord(C) , 0, 0, 0);
Keybd_event(20,0, KEYEVENTF_KEYUP, 0);
Keybd_event(32,0, KEYEVENTF_KEYUP, 0);
if ord(c) = 16 then
sleep(1)
else
Keybd_event(16,0, KEYEVENTF_KEYUP, 0)

until i> length(str);



end;

procedure TfmMain.Memo1Click(Sender: TObject);
begin
memo1.Clear;
end;

end. 


Чему изначально равно t?

-- не знаю.

И главный вопрос: А что программа делает?

Да, кнопка только одна.
Вот форма программы.
Программа, хотя там все написано.

Программа вводит выделенный пользователем текст с определенной скоростью.

Но я хочу отпилить только кусок ввода текста, так чтобы текст распознавался OCR --> переводился в непосредственно Plain Text и --> собственно вводился.

Т.е. если есть картинка текста на экране и поле куда надо его вводить то можно выделить область необходимую для OCR распознавания и получив собственно буквы вводить его (программа вводит).

Как я могу это сделать и есть ли плагины для OCR в Delphi 7?

..тему не в Помощь студентам надо было писать..

[newerow1989]

При наведении мыши на объект появляется всплывающая подсказка. Вот на каждой посмотрите
Безымянный.png

TStaticText, TLinkLabel находятся на вкладке Additional

[Candide]

Сообщение от newerow1989

При наведении мыши на объект появляется всплывающая подсказка. Вот на каждой посмотрите
Вложение 82678

TStaticText, TLinkLabel находятся на вкладке Additional

Это TLinkLabel? А почему написано LabeledEdit?
TStaticText я нашел это где буква A.

[newerow1989]

Видимо на современных версиях Delphi есть.
Слева на панели список компонентов - http://helpdelphi.ru/linklabel/

[Candide]

Сообщение от newerow1989

Видимо на современных версиях Delphi есть.
Слева на панели список компонентов - http://helpdelphi.ru/linklabel/

Какая современнее Delphi 7 есть?

Я понял как сделать:
Добавляю обычный Label потом пишу в код:

PHP код:

procedure TForm1.Label1Click(Sender: TObject);
begin
   hLinkNavigateString(Nil, 'http://www.programmersforum.ru');
end; 


И настраиваю вид курсора, чтобы изменялся когда навожу.

[Аватар]

TLinkLabel в Dekphi 2009 впервые появилось если не ошибаюсь. Правда там отличия от Label почти ни какого. Все равно по клику кодировать обращение к чему-то типа ShellExecute

Какая современнее Delphi 7 есть?

дык целая серия XE. Правда лучше бы делфи на 7-ке почило, чем так развиваться

[Candide]

Сообщение от Аватар

TLinkLabel в Delphi 2009 впервые появилось если не ошибаюсь. Правда там отличия от Label почти ни какого.


Все равно по клику кодировать обращение к чему-то типа ShellExecuteдык целая серия XE. Правда лучше бы делфи на 7-ке почило, чем так развиваться

Хо-хо.

PHP код:

4.9    Borland Delphi 8
4.10    Borland Delphi 2005
4.11    Borland Delphi 2006
4.12    CodeGear Delphi 2007
4.13    Delphi 2009
4.14    Delphi 2010
4.15    Delphi XE
4.16    Delphi XE2
4.17    Delphi XE3
4.18    Delphi XE4
4.19    Delphi XE5
4.20    Delphi XE6
4.21    Delphi XE7
4.22    Delphi XE8
4.23    Delphi 10 Seattle 


А я то думал последнюю скачал. Мда..