unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Menus, ExtCtrls, FileCtrl;
type
Tfrmfonetica = class(TForm)
GroupBox1: TGroupBox;
Label7: TLabel;
GroupBox2: TGroupBox;
ComboBox1: TComboBox;
GroupBox3: TGroupBox;
ListBox1: TListBox;
GroupBox4: TGroupBox;
vocali: TGroupBox;
Label2: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
z: TGroupBox;
Label3: TLabel;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
c: TGroupBox;
lblc: TLabel;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
gngl: TGroupBox;
Label1: TLabel;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
j: TGroupBox;
Label4: TLabel;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
il: TGroupBox;
lblil: TLabel;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
StringGrid1: TStringGrid;
Button3: TButton;
MainMenu1: TMainMenu;
File1: TMenuItem;
N1: TMenuItem;
Esci1: TMenuItem;
About1: TMenuItem;
Chiudi1: TMenuItem;
Visualizzamodificheeffettuate1: TMenuItem;
Button1: TButton;
ListBox2: TListBox;
StringGrid2: TStringGrid;
Button2: TButton;
Button4: TButton;
GroupBox6: TGroupBox;
consonanti: TGroupBox;
RadioButton19: TRadioButton;
RadioButton20: TRadioButton;
Label9: TLabel;
GroupBox7: TGroupBox;
Label5: TLabel;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
RadioButton16: TRadioButton;
RadioButton15: TRadioButton;
Label6: TLabel;
Edit1: TEdit;
Label8: TLabel;
GroupBox8: TGroupBox;
Label10: TLabel;
Button6: TButton;
Button5: TButton;
FileListBox1: TFileListBox;
RadioButton18: TRadioButton;
RadioButton17: TRadioButton;
Label11: TLabel;
Button7: TButton;
Button8: TButton;
Button9: TButton;
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox1Change(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure Button3Click(Sender: TObject);
procedure RadioButton14Click(Sender: TObject);
procedure RadioButton13Click(Sender: TObject);
procedure Chiudi1Click(Sender: TObject);
procedure Esci1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure Visualizzamodificheeffettuate1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton15Click(Sender: TObject);
procedure RadioButton16Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton11Click(Sender: TObject);
procedure RadioButton12Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FileListBox1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure RadioButton19Click(Sender: TObject);
procedure RadioButton20Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button7Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmfonetica: Tfrmfonetica;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6; //Unit2;
{$R *.dfm}
procedure prossimo;
begin
frmfonetica.stringgrid2.row:=frmfonetica.listbox2.ItemIndex;
frmfonetica.combobox1.Text:=frmfonetica.listbox2.Items[frmfonetica.listbox2.itemindex];
frmfonetica.button1.click;
frmfonetica.radiobutton1.Checked:=false;
frmfonetica.radiobutton2.Checked:=false;
frmfonetica.radiobutton3.Checked:=false;
frmfonetica.radiobutton4.Checked:=false;
frmfonetica.radiobutton5.Checked:=false;
frmfonetica.radiobutton6.Checked:=false;
frmfonetica.radiobutton7.Checked:=false;
frmfonetica.radiobutton8.Checked:=false;
frmfonetica.radiobutton9.Checked:=false;
frmfonetica.radiobutton10.Checked:=false;
frmfonetica.radiobutton11.Checked:=false;
frmfonetica.radiobutton12.Checked:=false;
frmfonetica.radiobutton13.Checked:=false;
frmfonetica.radiobutton14.Checked:=false;
frmfonetica.radiobutton15.Checked:=false;
frmfonetica.radiobutton16.Checked:=false;
frmfonetica.radiobutton19.Checked:=false;
frmfonetica.radiobutton20.Checked:=false;
end;
procedure Tfrmfonetica.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
combobox1.Text:='';
end;
procedure Tfrmfonetica.ComboBox1Change(Sender: TObject);
begin
button1.click;
end;
procedure Tfrmfonetica.ListBox1Click(Sender: TObject);
var i:integer;
begin
if (listbox1.itemindex>=0) then
begin
if (il.visible=false)and (vocali.visible=false)and (gngl.visible=false)and (c.visible=false)and (j.visible=false)and (z.visible=false) then
exit
else
begin
button3.enabled:=true
end;
end
else
begin
button3.enabled:=false;
end;
for i:=0 to stringgrid1.rowcount-1 do
begin
stringgrid1.Cells[1,i]:=lowercase(stringgrid1.Cells[1,i]) ;
end;
i:=-1;
repeat
i:=i+1;
stringgrid1.Cells[0,i];
until
stringgrid1.cells[0,i]=listbox1.items[listbox1.ItemIndex];
stringgrid1.Cells[1,i]:=uppercase( stringgrid1.Cells[1,i]);
stringgrid1.row:=i;
//lblcontatore.caption:=inttostr(i);
end;
procedure Tfrmfonetica.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) in [97..122] then
exit
else
key:=chr(0);
end;
procedure Tfrmfonetica.Button3Click(Sender: TObject);
var i,i2:integer;
begin
if (listbox1.ItemIndex=-1) or ((il.visible=false)and (vocali.visible=false)and (gngl.visible=false)and (c.visible=false)and (j.visible=false)and (z.visible=false)) then
begin
button3.Enabled:=false;
showmessage('Prima selezionare una posizione nello step 2');
end;
if combobox1.text='a' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if (frmmodifiche.A.count<listbox1.count) then
begin
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.a.Items.Add(chr(0));
end;
if radiobutton2.checked=true then
begin
frmmodifiche.a.Items.Delete(listbox1.itemindex);
frmmodifiche.a.Items.Insert(listbox1.itemindex,'chiuso-');
end
else
begin
frmmodifiche.a.Items.Delete(listbox1.itemindex);
frmmodifiche.a.Items.Insert(listbox1.itemindex,'aperto-');
end;
end
end
else
if combobox1.text='c' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.c.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.c.items.add(chr(0));
if radiobutton7.checked=true then
begin
frmmodifiche.c.Items.Delete(listbox1.itemindex);
frmmodifiche.c.Items.Insert(listbox1.itemindex,'dolce-');
end
else
begin
frmmodifiche.C.Items.Delete(listbox1.itemindex);
frmmodifiche.C.Items.Insert(listbox1.itemindex,'dura-');
end
end
end
else
if combobox1.text='e' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.e.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.e.items.add(chr(0));
if radiobutton1.checked=true then
begin
frmmodifiche.e.Items.Delete(listbox1.itemindex);
frmmodifiche.e.Items.Insert(listbox1.itemindex,'aperto-');
end
else
begin
frmmodifiche.e.Items.Delete(listbox1.itemindex);
frmmodifiche.e.Items.Insert(listbox1.itemindex,'chiuso-');
end
end
end
else
if combobox1.text='g' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.c.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.c.items.add(chr(0));
if radiobutton3.checked=true then
begin
frmmodifiche.g.Items.Delete(listbox1.itemindex);
frmmodifiche.g.Items.Insert(listbox1.itemindex,'dolce-');
end
else
begin
if (radiobutton4.checked=true) or (radiobutton9.Checked=true) or (radiobutton15.checked=true) then
begin
if (radiobutton9.Checked=true) or (radiobutton15.checked=true) then
showmessage('Accertarsi anche di impostare come: "Non pronunciare" il carattere successivo alla g');
frmmodifiche.g.Items.Delete(listbox1.itemindex);
frmmodifiche.g.Items.Insert(listbox1.itemindex,'dura-');
end
else
begin
if (radiobutton10.checked=true) then
begin
showmessage('Accertarsi anche di impostare come: "Non pronunciare" il carattere successivo alla g');
frmmodifiche.g.Items.Delete(listbox1.itemindex);
frmmodifiche.g.Items.Insert(listbox1.itemindex,'l-');
end
else
begin
if (radiobutton16.checked=true) then
begin
frmmodifiche.g.Items.Delete(listbox1.itemindex);
frmmodifiche.g.Items.Insert(listbox1.itemindex,'n-');
end;
end;
end;
end;
end;
end
else
begin
if combobox1.text='i' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.i.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.i.items.add(chr(0));
if radiobutton14.checked=true then
begin
frmmodifiche.i.Items.Delete(listbox1.itemindex);
frmmodifiche.i.Items.Insert(listbox1.itemindex,'non-');
end
else
begin
if (radiobutton1.checked=true) then
begin
frmmodifiche.i.Items.Delete(listbox1.itemindex);
frmmodifiche.i.Items.Insert(listbox1.itemindex,'aperto-');
end
else
begin
frmmodifiche.i.Items.Delete(listbox1.itemindex);
frmmodifiche.i.Items.Insert(listbox1.itemindex,'chiuso-');
end
end
end;
end
else
if combobox1.text='j' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.j.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.j.items.add(chr(0));
if radiobutton11.checked=true then
begin
frmmodifiche.j.Items.Delete(listbox1.itemindex);
frmmodifiche.j.Items.Insert(listbox1.itemindex,'dolce-');
end
else
begin
frmmodifiche.j.Items.Delete(listbox1.itemindex);
frmmodifiche.j.Items.Insert(listbox1.itemindex,'l-');
end
end
end
else
if combobox1.text='z' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.z.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.z.items.add(chr(0));
if radiobutton5.checked=true then
begin
frmmodifiche.z.Items.Delete(listbox1.itemindex);
frmmodifiche.z.Items.Insert(listbox1.itemindex,'sorda-');
end
else
begin
frmmodifiche.z.Items.Delete(listbox1.itemindex);
frmmodifiche.z.Items.Insert(listbox1.itemindex,'sonora-');
end
end
end
else
if combobox1.text='o' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.o.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.o.items.add(chr(0));
if radiobutton1.checked=true then
begin
frmmodifiche.o.Items.Delete(listbox1.itemindex);
frmmodifiche.o.Items.Insert(listbox1.itemindex,'aperto-');
end
else
begin
frmmodifiche.o.Items.Delete(listbox1.itemindex);
frmmodifiche.o.Items.Insert(listbox1.itemindex,'chiuso-');
end
end
end
else
if combobox1.text='u' then
begin
for i:=0 to (listbox1.count)-1 do
begin
if frmmodifiche.u.count<listbox1.count then
for i2:=0 to (listbox1.count)-1 do
frmmodifiche.u.items.add(chr(0));
if radiobutton1.checked=true then
begin
frmmodifiche.u.Items.Delete(listbox1.itemindex);
frmmodifiche.u.Items.Insert(listbox1.itemindex,'aperto-');
end
else
begin
frmmodifiche.u.Items.Delete(listbox1.itemindex);
frmmodifiche.u.Items.Insert(listbox1.itemindex,'chiuso-');
end
end
end
else
end
end;
procedure Tfrmfonetica.RadioButton14Click(Sender: TObject);
begin
vocali.visible:=false;
consonanti.visible:=false;
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='none';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton13Click(Sender: TObject);
begin
if lblil.Caption='I:' then
vocali.visible:=true
else
consonanti.visible:=true;
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='#';
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
end;
end;
procedure Tfrmfonetica.Chiudi1Click(Sender: TObject);
begin
close
end;
procedure Tfrmfonetica.Esci1Click(Sender: TObject);
begin
halt
end;
procedure Tfrmfonetica.About1Click(Sender: TObject);
begin
frmabout.Show;
end;
procedure Tfrmfonetica.Visualizzamodificheeffettuate1Click(
Sender: TObject);
begin
frmmodifiche.Show;
end;
procedure Tfrmfonetica.Edit1Change(Sender: TObject);
var i:integer;
begin
listbox2.clear;
for i:=0 to length(edit1.Text)-1 do
begin
stringgrid2.rowCount:=i+1;
StringGrid2.cells[0,i]:=inttostr(i+1);
// StringGrid2.cells[1,i]:=;
stringgrid2.cells[1,i]:='#';
listbox2.Items[i]:= edit1.text[i+1] //StringGrid2.cells[1,i]
end;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
radiobutton5.Checked:=false;
radiobutton6.Checked:=false;
radiobutton7.Checked:=false;
radiobutton8.Checked:=false;
radiobutton9.Checked:=false;
radiobutton10.Checked:=false;
radiobutton11.Checked:=false;
radiobutton12.Checked:=false;
radiobutton13.Checked:=false;
radiobutton14.Checked:=false;
radiobutton15.Checked:=false;
radiobutton16.Checked:=false;
radiobutton19.Checked:=false;
radiobutton20.Checked:=false;
(* if edit1.Text='' then
button2.Enabled:=False
else
button2.Enabled:=true; *)
end;
procedure Tfrmfonetica.ListBox2Click(Sender: TObject);
begin
prossimo
(*stringgrid2.row:=listbox2.ItemIndex;
combobox1.Text:=listbox2.Items[listbox2.itemindex];
button1.click;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
radiobutton5.Checked:=false;
radiobutton6.Checked:=false;
radiobutton7.Checked:=false;
radiobutton8.Checked:=false;
radiobutton9.Checked:=false;
radiobutton10.Checked:=false;
radiobutton11.Checked:=false;
radiobutton12.Checked:=false;
radiobutton13.Checked:=false;
radiobutton14.Checked:=false;
radiobutton15.Checked:=false;
radiobutton16.Checked:=false;
radiobutton19.Checked:=false;
radiobutton20.Checked:=false; *)
end;
procedure Tfrmfonetica.Button1Click(Sender: TObject);
var i,contatore:integer;
begin
if (listbox2.itemindex>=0) then
begin
button3.enabled:=true;
button2.Enabled:=true;
end
else
begin
button3.enabled:=false;
button2.Enabled:=false;
end;
contatore:=0;
for i:=0 to Length(frmmainform.memo2.Text)-1 do
begin
if combobox1.text[1]=(frmmainform.memo2.Text[i+1]) then
begin
contatore:=contatore+1;
end;
end;
label7.caption:='Nel testo ho trovato: '+inttostr(contatore)+' '+combobox1.text;
contatore:=0;
listbox1.Clear;
for i:=0 to stringgrid1.rowcount-1 do
begin
stringgrid1.Cells[0,i]:='';
if stringgrid1.Cells[1,i]=combobox1.Text[1] then
begin
contatore:=contatore+1;
stringgrid1.Cells[0,i]:=inttostr(contatore);
listbox1.Items.Add(inttostr(contatore));
end;
end;
(* if(combobox1.Text[1]) in ['b','d','f','k','m','n','p','q','r','s','t','v'] then
begin
consonanti.Visible:=true;
vocali.Visible:=false;
gngl.Visible:=false;
z.Visible:=false;
cg.visible:=false;
j.Visible:=false;
end
else *)
begin
if (combobox1.Text[1]) in ['a','e','o','u'] then
begin
il.Visible:=false;
vocali.Visible:=true;
gngl.Visible:=false;
z.Visible:=false;
c.visible:=false;
j.Visible:=false;
consonanti.Visible:=false;
end
else
begin
if (combobox1.Text[1]) in ['c'] then
begin
il.Visible:=true;
lblil.Caption:='C';
vocali.Visible:=false;
gngl.Visible:=false;
z.Visible:=false;
c.visible:=true;
j.Visible:=false;
consonanti.Visible:=true;
end
else
if (combobox1.Text[1]) in ['g'] then
begin
il.Visible:=true;
lblil.Caption:='G';
vocali.Visible:=false;
gngl.Visible:=true;
z.Visible:=false;
j.Visible:=false;
consonanti.Visible:=true;
groupbox7.visible:=true;
end
else
begin
if (combobox1.Text[1]) in ['h','w','x','y','b','d','f','k','m','n','p','q','r','s','t','v'] then
begin
if (combobox1.Text[1]) in ['b','d','f','m','n','p','q','r','s','t','v'] then
begin
consonanti.Visible:=true;
il.Visible:=true;
lblil.caption:=uppercase(combobox1.text[1])+':';
end
else
begin
consonanti.Visible:=false;
il.Visible:=false;
end;
vocali.Visible:=false;
gngl.Visible:=false;
z.Visible:=false;
c.visible:=false;
j.Visible:=false;
end
else
begin
if (combobox1.Text[1]) in ['j'] then
begin
il.Visible:=false;
vocali.Visible:=false;
gngl.Visible:=false;
z.Visible:=false;
c.visible:=false;
j.Visible:=true;
consonanti.Visible:=false;
end
else
begin
if (combobox1.Text[1]) in ['z'] then
begin
il.Visible:=true;
lblil.Caption:='Z';
vocali.Visible:=false;
gngl.Visible:=false;
z.Visible:=true;
c.visible:=false;
j.Visible:=false;
consonanti.Visible:=true;
end
else
begin
if (combobox1.Text[1]) in ['l'] then
begin
il.Visible:=true;
vocali.Visible:=false;
gngl.Visible:=false;
z.Visible:=false;
c.visible:=false;
j.Visible:=false;
lblil.caption:='L:';
consonanti.Visible:=true;
end
else
begin
if (combobox1.Text[1]) in ['i'] then
begin
il.Visible:=true;
vocali.Visible:=true;
gngl.Visible:=false;
z.Visible:=false;
c.visible:=false;
j.Visible:=false;
lblil.caption:='I:';
consonanti.Visible:=false;
end
end
end;
end;
end;
end;
end;
end;
listbox1.ItemIndex:=0;
if listbox1.ItemIndex=0 then
button3.Enabled:=true
else
button3.Enabled:=false;
end;
procedure Tfrmfonetica.RadioButton1Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='aperto-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton2Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='chiuso-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton3Click(Sender: TObject);
begin
if radiobutton18.checked=true then
if radiobutton19.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='doppia-dolce-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
if radiobutton20.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dolce-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
begin
showmessage('Prima selezionare se la lettera deve essere singola o doppia');
radiobutton3.checked:=false;
end;
end;
procedure Tfrmfonetica.RadioButton4Click(Sender: TObject);
begin
if radiobutton18.checked=true then
if radiobutton19.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='doppia-dura-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
if radiobutton20.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dura-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
begin
showmessage('Prima selezionare se la lettera deve essere singola o doppia');
radiobutton4.checked:=false;
end;
end;
procedure Tfrmfonetica.RadioButton9Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dura-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton10Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='l-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton15Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dura-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton16Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='n-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton7Click(Sender: TObject);
begin
if radiobutton18.checked=true then
if radiobutton19.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='doppia-dolce-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
if radiobutton20.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dolce-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
begin
showmessage('Prima selezionare se la lettera deve essere singola o doppia');
radiobutton7.checked:=false;
end;
end;
procedure Tfrmfonetica.RadioButton8Click(Sender: TObject);
begin
if radiobutton18.checked=true then
if radiobutton19.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='doppia-dura-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
if radiobutton20.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dura-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end
else
begin
showmessage('Prima selezionare se la lettera deve essere singola o doppia');
radiobutton8.checked:=false;
end;
end;
procedure Tfrmfonetica.RadioButton11Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='dolce-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton12Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='l-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton5Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='sorda-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.RadioButton6Click(Sender: TObject);
begin
if radiobutton18.checked=true then
begin
stringgrid2.cells[1,listbox2.itemindex]:='sonora-';
listbox2.ItemIndex:=listbox2.itemindex+1;
prossimo;
end;
end;
procedure Tfrmfonetica.Button4Click(Sender: TObject);
var f:textfile;
i:integer;
n:string;
begin
if fileexists(edit1.Text+'.ssr') then
if messagedlg('Il file che si sta tentando di creare esiste già.. sovrascrivere?',mtconfirmation,[mbyes,mbno],0)=mrno then
begin
Showmessage('Il file non è stato sovrascritto, cambiare nome al file e riprovare')
;exit
end;
// else
;n:='Verrà creato il file di che permetterà di riconoscere la parola'+#13+#10;
n:=n+uppercase(edit1.Text)+#13+#10;
n:=n+'continuare?';
if messagedlg(n,mtconfirmation,[mbyes,mbno],0)=mryes then
begin
assignfile(f,(*'insegnamenti\'+*)edit1.Text+'.ssr');
rewrite(f);
for i:=0 to stringgrid2.rowcount-1 do
writeln(f,stringgrid2.cells[1,i]);
closefile(f);
showmessage('L''operazione è stata completata con successo');
end
else
showmessage('L''operazione è stata interrotta, il file non è stato creato');
filelistbox1.Update
end;
procedure Tfrmfonetica.Button5Click(Sender: TObject);
var n:string;
begin
n:='Si sta tentando di cancellare il file'+#13+#10;
n:=n+'insegnamenti\'+uppercase(filelistbox1.items[filelistbox1.itemindex])+#13+#10;
n:=n+ 'Confermare la rimozione?';
if messagedlg(n, mtconfirmation,[mbyes,mbno],0)=mryes then
begin
deletefile((*'insegnamenti\'+*)filelistbox1.items[filelistbox1.itemindex]+'.ssr');
deletefile((*'insegnamenti\'+*)filelistbox1.items[filelistbox1.itemindex]);
showmessage('La rimozione del file è avvenuta con successo');
end
else
showmessage('E'' stata interrotta l''operazione; Il file non è stato rimosso');
filelistbox1.Update;
end;
procedure Tfrmfonetica.Button6Click(Sender: TObject);
var a,b,c:integer; f:textfile; riga:string;
begin
a:=length((filelistbox1.Items[filelistbox1.itemindex]));//carica il nome da modificare
b:=a-4; //toglie l'estensione del file (che è compostra da 4 elementi
edit1.Text:=copy(filelistbox1.Items[filelistbox1.itemindex],1,b);
//visualizza le vecchie impostazioni
c:=-1;
assignfile(f,filelistbox1.Items[filelistbox1.itemindex]);
reset(f);
while not seekeof(f) do
begin
c:=c+1;
read(f,riga);
stringgrid2.Cells[1,c]:=(riga);
end;
listbox2.ItemIndex:=0;
prossimo;
//combobox1.ItemIndex:=combobox1.ItemIndex+1;
end;
procedure Tfrmfonetica.FileListBox1Change(Sender: TObject);
begin
if filelistbox1.itemindex<0 then
begin
button5.Enabled:=falsE;
button6.enabled:=false;
end
else
begin
button5.Enabled:=true;
button6.enabled:=true;
end;
label10.caption:='File esistenti: '+inttostr(filelistbox1.count);
end;
procedure Tfrmfonetica.FormActivate(Sender: TObject);
begin
filelistbox1.Directory:='insegnamenti\';
end;
procedure Tfrmfonetica.FormDeactivate(Sender: TObject);
begin
filelistbox1.Directory:='..\';
end;
procedure Tfrmfonetica.RadioButton19Click(Sender: TObject);
begin
if radiobutton18.checked=true then
stringgrid2.cells[1,listbox2.itemindex]:='doppia-';
radiobutton3.checked:=false;
radiobutton4.checked:=falsE;
groupbox7.visible:=false;
end;
procedure Tfrmfonetica.RadioButton20Click(Sender: TObject);
begin
if radiobutton18.checked=true then
stringgrid2.cells[1,listbox2.itemindex]:='#';
radiobutton3.checked:=false;
radiobutton4.checked:=falsE;
groupbox7.visible:=true;
end;
procedure Tfrmfonetica.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) in [65..90] then
key:=chr(ord(key)+32);
if ord(key) in [97..122,8] then
EXIT
else
key:=chr(0);
end;
procedure Tfrmfonetica.Button7Click(Sender: TObject);
begin
frmhelp.memo1.lines.loadfromfile('../help/insegnamenti/step1.txt');
frmhelp.showmodal;
end;
procedure Tfrmfonetica.Button2Click(Sender: TObject);
begin
stringgrid2.Cells[1,listbox2.itemindex]:='#';
end;
procedure Tfrmfonetica.Button8Click(Sender: TObject);
begin
frmhelp.memo1.lines.loadfromfile('../help/insegnamenti/step2.txt');
frmhelp.showmodal;
end;
end.