Problem mit Objektorientierung

[400kmh]

Beim der Ausführung folgender Anwendung erscheint folgende Fehlermeldung: Exception-Klasse >>External: SIGSEGV<< ausgelöst.

Dann springt der Editor in die folgende Zeile: "self.x:=1; end;"

Wenn man mit der Maus über "self" verweilt, wird folgendes eingeblendet: "self = = Cannot access memory at address 0x0"

Code: Alles auswählen

unit unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; 
 
type
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject); end;
 
  TObjekt = class
    x: integer;
    Procedure Berechnung; end;
 
var
  Form1: TForm1; 
  Objekt1: TObjekt;
 
implementation
 
{$R *.lfm}
 
procedure TObjekt.Berechnung; begin
  self.x:=1; end;
 
procedure TForm1.FormCreate(Sender: TObject); begin
  Objekt1.Berechnung;
  Form1.Caption:=inttostr(Objekt1.x); end;
 
end. 
 

Wie kann man das Problem beheben?

(Programm beginnt mit der Prozedur TForm1.FormCreate)

[theo]

Du musst das Objekt zuerst createn, bevor du es benutzt.
Guckst du: http://www.delphi-treff.de/tutorials/ob ... ammierung/

Und bitte mach die Formatierung normal, nicht begin auf der gleichen Zeile wie procedure etc.. Das sieht echt übel aus.

So:

Code: Alles auswählen

procedure TObjekt.Berechnung; 
begin
  x:=1; 
end;

Und: Nein, das ist nicht Geschmackssache.

[400kmh]

Aber mit deiner seltsamen Nutzung von end, kann man sich nun wirklich nicht zurecht finden. Kein Mensch kann erkennen, wozu ein end gehört. Nimm es mir nicht böse, aber kommst du ursprünglich von einer C-artigen Sprache?

Nein, ich komme von Pascal.

Bei C finde ich es allerdings in der Tat noch angebrachter die Klammern "{" und "}" nicht in eigene Zeilen zu schreiben, weil das einfach pothässlich aussieht.

1) begin und end sind wichtig. Ist ihre Position irgendwo verstreut, ist es wesentlich schwerer Fehler
an ihrer Position zu erkennen. Es geht ja nicht nur darum dem Leser die Idee des Codes darzubringen,
sondern der Leser muss auch in der Lage sein "Code = Absicht" einfach zu prüfen. Wenn man es
trotzdem durchziehen will, wäre es zumindest Pflicht die Positionen der begin und ends vollautomatisch
mit den Einrückungen abzugleichen.

Wenn man in Lazarus auf ein "begin" bzw. "end" klickt wird automatisch das dazugehörige "end" bzw. "begin" rot eingekreist. Deshalb habe ich keinerlei Probleme damit herauszufinden, wozu ein "end" gehört.

Bei Editoren, die das nicht machen, gebe ich Dir allerdings recht: Da sollte das "end" wohl in eine eigene Zeile.

[mse]

"mittlerweile gewöhnt" sagt ja alles. Das heißt auf deutsch, das er auch große Mühe damit hatte.

Was ja nicht heisst, dass es schlecht ist. Geige spielen ist nicht schlecht, obwohl man am Anfang grosse Mühe damit hat.
Und wie gesagt, ich habe längere Zeit auch andere Codierungs-Stile verwendet.

Martin

[Patito]

Ich habe mal ein Bild angefügt, was ich mir von der IDE bei den begin und ends so wünsche.

Als Wetteinsatz gäbe es z.B. einen Formatter oder Viewer für den Python-Style zu schreiben,
der alle Zeilen passend einrückt und alle begin, ends und ";" aus dem Sichtfeld schiebt (z.B. 200 Zeichen nach rechts draußen).

Also lesen kann man das mit den gleichen Einrückungen natürlich schon schneller

Das werte ich jetzt eventuell als Sieg

(P.S.: Sauerei! Ich darf hier keinen Screenshot hochladen, der 1920 Pixel hoch ist..)

[theo]

Was ja nicht heisst, dass es schlecht ist. Geige spielen ist nicht schlecht, obwohl man am Anfang grosse Mühe damit hat.

Doch, im Ggs. zur Geige kostet es Zeit ohne erkennbaren Nutzen (jedenfalls erkennt den ausser dir keiner)

[mse]

Na, meine Produktivität ist mit meinem Stil am grössten, das ist eigentlich alles was mich interessiert.
Und deine Produktivität würde vielleicht auch steigen, wenn du die Anfangshürden meistern würdest, wer weiss.

[theo]

Und deine Produktivität würde vielleicht auch steigen, wenn du die Anfangshürden meistern würdest, wer weiss.

Die konsequente Kleinschrift ist mit einiger Sicherheit für die meisten Menschen schlechter lesbar.
Mein Auge flutscht da nur so drüber. Das kann nicht gut sein.

setstatfilevar

Da muss man ja erst nachdenken, wie man das überhaupt lesen soll.
Nein danke!