Deutsches Lazarusforum

special-symbol = `+' j `' j `*' j `/' j `=' j `<' j `>' j `[' j `]' j `.' j `,' j `:' j `;' j `"' j `(' j `)' j `**' j `<>' j `<=' j `>=' j `:=' j `..' j `><' j `=>' j word-symbol Dies auf Seite 7 ist etwas merkwürdig, da hat es Symbole die gar nicht gehen. if 2 => 3 then; So gibt einen Syntax-Error.

Winni hat geschrieben: ↑

Sa 26. Sep 2020, 01:11

Hallo!

Ja, stimmt.

Am Ende der Turbo-Laufbahn hat Borland schon
mal ein bischen geübt.

Winni

Und sie haben es schon recht gut gemacht, siehe TurboVision.

Turbo Pascal hast du noch vergessen. Das kannte auch schon Objekte.

Ein Record ist definitiv keine OOP, genau so wenig wie ein type helper.
OOP muss Vererbungen enthalte, sowie überschreibare Methoden.
Ein sehr gutes Beispiel für OOP ist FreeVision.

Ohne OOP geht es heutzutage kaum mehr. Ausser bem Embeded Systemen und Kondolenanwendungen.

Ich habe das Problem umgangen, in dem ich auch TRect verzichtete.
Ich habe nun 4 property Left, Width, etc.

die rechte Taste immer noch unten, somit wird "Up Right" ausgegeben. Ups, habe es falsch geschrieben, sollte natürlich Down heissen, habe den Beitrag korrigierte. Ich würde ja mal sagen, Du bietest das als "Finger Yoga für Fortgeschrittene" an. Für eine Desktop-Anwendung kommt mir gerade auch kein ...

Ich bin ein Schritt weiter gekommen, das MouseUp arbeitet korrekt. Man ist bis jetzt immer von einer gedrückten Taste ausgegangen. Angenommen, linke und rechte Taste unten. Man lässt die linke Taste los, dabei ist die rechte Taste immer noch unten, somit wird "Up Right" ausgegeben. procedure TForm1....

Anstelle von Operatoren überladen, könnte ich dir noch type helper enpfehlen.

Beim = weiss ich es nicht genau, aber ich vermute, da werden nur die Zeiger zur Array verglichen. Aber das + funktioniert definitiv. {$modeswitch arrayoperators} var a, b, c: array of char; i: integer; begin a := 'abc'; b := '123'; c := a + b; for i := 0 to Length(c) - 1 do begin Write(c[i]); end; e...

Hi! Geht nicht gibt's nicht. Wenn man wieder von diesem umständlichen Klassenzeugs genervt ist, kann man das auch anders machen. Trect ist definiert als Left,Top,Right,Bottom : Longint; Top ist also der zweite Integer in dem Record. procedure TForm1.TestClick(Sender: TObject); var Oben : integer = ...

Ich habe gerade ein neues Features in der IDE entdeckt.
Wen man unter "type" in der Source [Ctrl + Space] drückt und dann "class" eintippt, kommen templates mit class[x].
Wen man dort eine Vorlage auswählt, wird einem der Klassenkopf gebaut.

So viel ich weis sind diese Operatoren für dynamische Array schon implementiert.

Dann hast du wohl auch die Stelle gepatcht, welche den co80 aufrufte ?

Gab es da einen Patch für die exe ?