Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
8. Sep 2015
Grobes Rezept:
Für jeden Arbeitsschritt (H, G0, ...) eine Klasse (ableiten von einer Basisklasse, die wiederum von TPersistent abgeleitet ist)
Für jede Klasse die ToString Methode überschreiben (damit geht die Anzeige in der Listbox wie von selbst)
Lookup-Tabelle um zu der Datenklasse den passenden Frame zu finden
Datenklasse dem Frame per Assign zuweisen
Eingaben aus dem Frame der...
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
8. Sep 2015
Wenn dir dieses if else Schlangenmonster zu unhandlich wird, kannst du ja nochmal nachfragen, denn das geht auch insgesamt eleganter.
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
8. Sep 2015
Man sollte es sich so vorstellen
TGermanSpeaking = class
procedure Say( AText: string );
end;
procedure TalkWith( AGermanSpeaking: TGermanSpeaking );
begin
AGermanSpeaking.Say( 'Hallo' );
end;