begin
readln(fil1,s2);
s:=s+s2;
end;
for j:=1 to length(s) do begin
if s[j]='*' then begin
if s1=zagl.Edit1.Text then begin
i:=j+1;
while s[i]<>'*' do begin
if s[i]='!' then begin
StringGrid1.Cells[0,1]:=s3;
s3:='';
i:=i+1;
continue;
if s[i]='$' then begin
StringGrid1.Cells[1,1]:=s3;
if s[i]='#' then begin
StringGrid1.Cells[2,1]:=s3;
if s[i]='%' then begin
StringGrid1.Cells[3,1]:=s3;
if s[i]='^' then begin
StringGrid1.Cells[4,1]:=s3;
if s[i]='@' then begin
StringGrid1.Cells[5,1]:=s3;
if s[i]='~' then begin
StringGrid1.Cells[6,1]:=s3;
s3:=s3+s[i];
s1:='';
s1:=s1+s[j];
if s[j]='~' then s1:='';
closefile(fil1);
end.
4. Модуль обучения по курсу
unit Unit44;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, ToolWin, ComCtrls, StdCtrls, ExtDlgs, ExtCtrls, Menus;
const
HTMLID_FIND = 1;
HTMLID_VIEWSOURCE = 2;
HTMLID_OPTIONS = 3;
type
TForm37 = class(TForm)
WebBrowser1: TWebBrowser;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
OpenDialog1: TOpenDialog;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton6: TToolButton;
ComboBox1: TComboBox;
ToolButton8: TToolButton;
ToolButton1: TToolButton;
Timer1: TTimer;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ToolButton7Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure ToolButton8Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;}
{ Public declarations }
var
Form37: TForm37;
z,time1:integer;m:string;
implementation
uses Unit19, kontr;
{$R *.DFM}
procedure TForm37.ComboBox1KeyDown(Sender: TObject; var Key: Word;
{if Key = VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text);}
procedure TForm37.ToolButton1Click(Sender: TObject);
{ if OpenDialog1.Execute then
WebBrowser1.Navigate(OpenDialog1.FileName);
ComboBox1.Text := OpenDialog1.FileName;
end;}
timer1.Enabled:=false;
close;
procedure TForm37.ToolButton2Click(Sender: TObject);
z:=z+1;
WebBrowser1.GoBack;
ToolButton3.Enabled:=true;
procedure TForm37.ToolButton3Click(Sender: TObject);
z:=z-1;
if z>-1 then WebBrowser1.GoForward else ToolButton3.Enabled:=false;
procedure TForm37.ToolButton4Click(Sender: TObject);
WebBrowser1.Stop;
procedure TForm37.ToolButton5Click(Sender: TObject);
WebBrowser1.Refresh;
procedure TForm37.ToolButton6Click(Sender: TObject);
PostData, Headers: OLEvariant;
WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);
procedure TForm37.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString);
StatusBar1.SimpleText := Text;
procedure TForm37.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
ProgressBar1.Max := ProgressMax;
ProgressBar1.Position := Progress;
procedure TForm37.FormClose(Sender: TObject; var Action: TCloseAction);
Form37.Hide;
ElektKursInf.Show;
ElektKursInf.Button1.Enabled:=true;
procedure TForm37.ToolButton7Click(Sender: TObject);
const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
{var
CmdTarget : IOleCommandTarget;
vaIn, vaOut: OleVariant;
PtrGUID: PGUID;}
{New(PtrGUID);
PtrGUID^ := CGID_WebBrowser;
if WebBrowser1.Document <> nil then
try
WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
CmdTarget.Exec( PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);
finally
CmdTarget._Release;
except
// nothing
Dispose(PtrGUID);}
procedure TForm37.FormShow(Sender: TObject);
time1:=0;
timer1.Enabled:=true;
Form37.Caption:=ElektKursInf.ListBox2.Items.Strings[ElektKursInf.ListBox2.ItemIndex];
procedure TForm37.WebBrowser1BeforeNavigate2(Sender: TObject;
var l:integer;
procedure TForm37.WebBrowser1NavigateComplete2(Sender: TObject;
Combobox1.Text:=WebBrowser1.LocationURL;
if (ElektKursInf.ListBox1.Items.Strings[ElektKursInf.ListBox1.ItemIndex]<>WebBrowser1.LocationURL)then ToolButton2.Enabled:=true else ToolButton2.Enabled:=false;
procedure TForm37.ToolButton8Click(Sender: TObject);
Form2.Show;
procedure TForm37.Timer1Timer(Sender: TObject);
time1:=time1+timer1.interval;
procedure TForm37.N1Click(Sender: TObject);
5. Модуль контрольного тестирования
unit tester_;
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls,
jpeg, Gauges;
TForm1 = class(TForm)
// вопрос
Label5: TLabel;
// альтернативные ответы
Label1: TLabel;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12