Ich bin gerade dabei für mein Praktikum eine auditive bis multimediale Speisekarte mit Lazarus zu schreiben.
Das Grundgerüst ist fertig da ich allerdings noch nicht all zu lange programmiere( 5 Wochen) weiß ich nicht wie ich das ganze verbinde.
Also lautet meine Frage wie verbinde ich das gesprochene in einzelnen Aufnahmen gespeicherte Essen mit den Individuellen Auswahlpunkten ( Ich benutze TCheckgroups, TRadiogroups, Toggleboxes.
Ich habe vor das zu erst ein einleitungsmusik("Hallo ich hätte gerne ...") gespielt wird und dann das ausgewählte Essen (... Schnitzel...), die Extras ( ...mit Pommes, Salat,etc. ...) Die Größe (... XXL ...) und am Ende ein Danke Satz (... Danke)
Ich habe schon das Grundgerüst und den Abbreche button.
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
CheckBox1: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckGroup1: TCheckGroup;
RadioButton1: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
RadioButton15: TRadioButton;
RadioButton16: TRadioButton;
RadioButton17: TRadioButton;
RadioButton18: TRadioButton;
RadioButton19: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
ToggleBox1: TToggleBox;
ToggleBox2: TToggleBox;
ToggleBox3: TToggleBox;
ToggleBox4: TToggleBox;
ToggleBox5: TToggleBox;
ToggleBox6: TToggleBox;
ToggleBox7: TToggleBox;
procedure reset(Sender: TObject);
procedure send(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.reset(Sender: TObject);
begin
CheckBox1.Checked := false;
CheckBox2.Checked := false;
CheckBox3.Checked := false;
CheckBox4.Checked := false;
CheckBox5.Checked := false;
CheckBox6.Checked := false;
CheckBox7.Checked := false;
CheckBox8.Checked := false;
CheckBox9.Checked := false;
CheckBox10.Checked := false;
CheckBox11.Checked := false;
CheckBox12.Checked := false;
ToggleBox1.Checked := false;
ToggleBox2.Checked := false;
ToggleBox3.Checked := false;
ToggleBox4.Checked := false;
ToggleBox5.Checked := false;
ToggleBox6.Checked := false;
ToggleBox7.Checked := false;
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;
RadioButton17.Checked := false;
RadioButton18.Checked := false;
RadioButton19.Checked := false;
RadioButton10.Checked := false;
end;
procedure TForm1.send(Sender: TObject);
begin
end;
initialization
{$I unit1.lrs}
end.