DGL • Thema anzeigen - Class und einfache Variablen verstehen sich nicht?

Class und einfache Variablen verstehen sich nicht?

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

radulf

Betreff des Beitrags: Class und einfache Variablen verstehen sich nicht?

Verfasst: Di Dez 16, 2008 19:52

DGL Member

Registriert: Mi Dez 03, 2008 20:07
Beiträge: 7

Hoi, also ich bin ja jetzt auf allgemeinen Hinweis auf class statt object umgestiegen. Jetzt hab ich ein weiteres Progrämmchen, das nachher quasi array of String auslesen soll und je nachdem was drinsteht handeln soll, damit man in meinem Adventure die einzelnen Level halt nicht alle mit Delphi programmieren muss, denn das wär ja doof.

Ich habe also die wunderschöne class AOCompiler, der bisher nichts kann (bzw. können sollte) als Sound abzuspielen. Das hat als object auch alles geklappt, aber jetzt nicht mehr

Ich lade anfangs einfach in ein StringArray ein paar Zeilen um zu testen und starte damit dann die Prozedur Compile

Code:

 
  AOCompiler = class
    soundVerzeichnis : String;
    anweisung : array of String;
    procedure Compile(_anweisung : array of String);
    procedure playSoundfile(soundfile : String);
    procedure start;
    function Sound(zaehler : integer): integer;
 
  end;
 
procedure AOCompiler.Compile(_anweisung: array of string);
var
i, laenge : integer;
zaehler : integer;
begin
  //zaehler und anweisung eintragen
    showMessage('Setze Zähler');
    zaehler := -1;
    soundverzeichnis:= 'aaa';
    showMessage('Zähler gesetzt');
    setLength(anweisung, 1);
    showMessage('Test');
    SetLength(self.anweisung, Length(_anweisung));
    //laenge speichern, zwecks effizienz
    showMessage('Laenge einlesen');
    laenge := length(anweisung);
    showMessage('Anweisung einlesen');
    for I := 0 to laenge - 1 do
      begin
        anweisung[i] := _anweisung[i];
      end;
  if length(anweisung) > 0 then
  begin
      showMessage('Kurz vor der Schleife');
      while zaehler < laenge - 1 do
      begin
        //Zähler hochsetzen, um nächste Zeile zu lesen
        showMessage('Noch ein Schleifendurchlauf mit' + anweisung[zaehler]);
        zaehler := zaehler + 1;
        //Sound
        if anweisung[zaehler] = 'sound' then
          zaehler := Sound(zaehler);
      end;
  end;
end;
 

Schon bei soundVerzeichnis := 'aaa' wird fleissig gemeckert von wegen AccessViolation at gruselige Zahl, aber ich persönlich seh da nichtmal im Ansatz n Fehler, mit SetLength(anweisung, bla) gibts ähnliche Probleme, anfangs hat ich den Zähler auch global und auch da gabs die Probleme... Warum? Bitte helft!

Nach oben

Markus

Betreff des Beitrags:

Verfasst: Di Dez 16, 2008 20:13

DGL Member

Registriert: Fr Mär 30, 2007 18:35
Beiträge: 331

Hallo,

du solltest vorher das Objekt erstellen, mit:

Code:

 
var
  Compiler: AOCompiler;
 
Compiler:= AOCompiler.Create();
Compiler.Compile();

Du solltest außerdem Klassen mit einem 'T' beginnen, also TAOCompiler. Ich würde dir erstmal empfehlen dich in OOP einzulesen :wink:

Markus

Nach oben

radulf

Betreff des Beitrags:

Verfasst: Di Dez 16, 2008 21:22

DGL Member

Registriert: Mi Dez 03, 2008 20:07
Beiträge: 7

Ich war immer der Meinung, dass Delphi ohne Konstruktor klarkommt... Aber gut, ist bei class wohl anders, die benutz ich auch noch nicht lange. Dummerweise hilft mir das auch nicht viel weiter. Meine Testprozedur:

Code:

 
procedure TForm1.test;
var
anweisung : array of String;
begin
  setLength(anweisung, 5);
  anweisung[0] := 'blabla';
  anweisung[1] := 'machnichts';
  anweisung[2] := 'sound';
  anweisung[3] := 'Bischofswein.mp3';
  anweisung[4] := 'zum Ignorieren';
  showMessage('Versuche Create');
  Befehlsverarbeitung.Create;
  showMessage('Create geschafft');
  Befehlsverarbeitung.Compile(anweisung);
  //compiler.playSound('Bischofswein.mp3');
end;
 

Das Versuche Create wird noch ausgegeben, aber danach kommt die allseits bekannte nichtssagende Fehlermeldung wie vorher bei der Veränderung von Variablen. Hab jetzt nicht so lange gegoogelt, hab aber nichts weiter gefunden, was man speziell beim Konstruktor vieleicht reinschreiben muss, also hab ichs einmal mit einem schnell selbstgeschriebenen probiert, der nichts weiter macht, und einmal mit dem Standardding, beide male gleiches Ergebnis...

Nach oben

Philip

Betreff des Beitrags:

Verfasst: Di Dez 16, 2008 21:40

DGL Member

Registriert: Di Jul 29, 2003 00:11
Beiträge: 436

Code:

 
  Befehlsverarbeitung.Create; 
 

ändern in

Code:

 
 Befehlsverarbeitung := AOCompiler.create();
 

Nach oben

radulf

Betreff des Beitrags:

Verfasst: Di Dez 16, 2008 22:06

DGL Member

Registriert: Mi Dez 03, 2008 20:07
Beiträge: 7

Ahh, und auf einmal funktioniert es

Super, danke

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.