Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
 
Delphi 6 Enterprise
 
#4

AW: Quelltext einkürzen

  Alt 13. Apr 2017, 11:13
Schön wäre halt auch eine Vorabinfo, worum es überhaupt geht.

Generell: Um das auf mehrere Prozeduren/Funktionen aufteilen zu können, könnte man als ersten Schritt manche der Variablen in ButtonStartClick nicht lokal deklarieren, sondern als variablen/Felder der Form. Dadurch kann man dann von verschiedenen Prozeduren aus darauf zugreifen und ButtonStartClick könnte dann so aussehen:

Delphi-Quellcode:
procedure ButtonStartClick(Sender: TObject);
begin
  BerechneZeiten; //Oder was auch immer du da machst
  GebeZeitenAus;
end;
Anstatt eine Boolche Variable für die Sprache zu nehmen, wäre eine Aufzählung/Enumeration schöner und lesbarer, zudem könnten so leichter neue Sprachen hinzukommen.

Delphi-Quellcode:
type TSprache = (Deutsch, Englisch, Spanisch, Dänisch);

//in der Klasse:
...
private
  Sprache:TSprache

procedure GebeZeitenAus;
begin
  Case Sprache of
    Englisch: GebeZeitenAusInEnglisch;
    Spanisch: GebeZeitenAusInSpanisch;
    //usw.
  end;
end;
Ralph
  Mit Zitat antworten Zitat