1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
begin
if NomPerso.Text <> '' then
begin
with TIniFile.Create(ExtractFilePath(Application.Exename)+'Personnages.ini') do
try
WriteString(NomPerso.Text, 'Race', ComboRace.Items.Strings[ComboRace.ItemIndex]);
WriteString(NomPerso.Text, 'Sexe', ComboSexe.Items.Strings[ComboSexe.ItemIndex]);
WriteString(NomPerso.Text, 'Pays', ComboPays.Items.Strings[ComboPays.ItemIndex]);
WriteString(NomPerso.Text, 'Equipes', ComboEquipe.Items.Strings[ComboEquipe.ItemIndex]);
WriteString(NomPerso.Text, 'Arme', ComboArme.Items.Strings[ComboArme.ItemIndex]);
WriteString(NomPerso.Text, 'Classe_depart', ComboClasse.Items.Strings[ComboClasse.ItemIndex]);
FOR i:=0 TO CheckList1Evo.Count-1 DO IF CheckList1Evo.Checked[i] THEN
WriteString(NomPerso.Text, '1Evo', CheckList1Evo.Items[i]);
finally
Free;
end;
ButtonValiderStd.Visible := True;
ButtonValiderOver.Visible := False;
ButtonValiderDown.Visible := False;
MessageDlg ('Le personnage est validé', mtInformation, [mbOK], 0);
end
else
MessageDlg ('Tu as oublié de nommer ce personnage', mtInformation, [mbOK], 0);
end; |
Partager