Die Suche ergab 1623 Treffer

von corpsman
Sa 17. Mai 2025, 10:08
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]

Danke für die Erklärung, wieder was gelernt ;)
von corpsman
Sa 17. Mai 2025, 10:06
Forum: Freepascal
Thema: CORBA-Interfaces mit und ohne Identifier
Antworten: 3
Zugriffe: 916

Re: CORBA-Interfaces mit und ohne Identifier

Was richtig strange ist, der Prüft auch die Parameter nicht.
Wenn first nun parameter erwaretet und Second nicht wirds richtig grußelig..
von corpsman
Do 15. Mai 2025, 17:08
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]

*g*,
ja ich weis, aber google war schneller ;)

by the way wenn ihr sehen wollt was ich daraus gemacht habe hier liegt die sourcedatei die das nun nutzt / nutzen wird. Hat schon seinen Charme das ganze ;)
von corpsman
Do 15. Mai 2025, 15:35
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ?

Arg, irgendwas läuft da schief.
Ich habe die neue Feature Klassen um ein 2. Interface erweitert:


Unit uExtended_Dont_Touch;

{$MODE ObjFPC}{$H+}

{$INTERFACES CORBA}

Interface

Uses
Classes, SysUtils, uDoNotTouchMe;

Type
INewFeatureInterface = Interface
Function NewFeature(): String;
End ...
von corpsman
Do 15. Mai 2025, 14:48
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ?

So also nach einigem Rumprobieren hab ich nun eine Lösung die "OK" ist, danke @kupferstecher

Hier meine Lösung:

1. uDoNotTouchMe wurde nicht verändert.
2. uExtended_Dont_Touch mit interfaces (Typehelper gehen ja nicht)


Unit uExtended_Dont_Touch;

{$MODE ObjFPC}{$H+}

{$INTERFACES CORBA ...
von corpsman
Mi 14. Mai 2025, 18:04
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ?

Ok, das mit den Typehelpern hat nicht geklappt.
Dann versuche ich noch mal zu beschreiben was ich eigentlich machen will..

Ich hab eine Fremd "lib" in der Klassen definiert sind die sind in der unit uDoNotTouchMe.pas und die sieht so aus:


Unit uDoNotTouchMe;

{$MODE ObjFPC}{$H+}

Interface

Uses ...
von corpsman
Mi 14. Mai 2025, 13:18
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ?

*g*
Aus den Schwierigkeiten dir das zu erklären und meinen Überlegungen, hatte ich ja ebenfalls bereits bemerkt, dass wahrscheinlich ein Typehelper hier der passendere ist.

Für das Beispiel und mein "realproblem" ist das eine Elegante Lösung.

Aber mein Versuch etwas zu Interfaces zu lernen und ...
von corpsman
Mi 14. Mai 2025, 10:47
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Re: Arbeiten mit Interfaces, wie macht man es korrect ?

Servus Michael,

Du hast Recht IInterface wurde "sinnvoll" umbenannt, und Cobra gesetzt.


Unit uInterface_Example;

{$MODE ObjFPC}{$H+}

{$INTERFACES CORBA}

Interface

Uses
Classes, SysUtils;

Type

ICanFlyIInterface = Interface
Function CanFly: Boolean; virtual; abstract;
End;


Das Thema ...
von corpsman
Mi 14. Mai 2025, 08:55
Forum: Freepascal
Thema: Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]
Antworten: 16
Zugriffe: 3631

Arbeiten mit Interfaces, wie macht man es korrect ? [Gelöst]

Hallo Zusammen,

Ich will grad mal ein klein wenig zum Thema Interfaces "lernen" und habe mir dazu die angehänge Testapp gebastelt.

Im Anhang habe ich eine kleine Demo angehängt, die leider nicht "funktioniert", weil ich noch nicht genug gelernt habe :/

Worum es geht:

Ich habe 3 Classen TVehicle ...
von corpsman
Mo 12. Mai 2025, 06:43
Forum: Sonstiges
Thema: Ideen / Hilfe beim Schreiben einer 3D- Physic Engine
Antworten: 4
Zugriffe: 1734

Re: Ideen / Hilfe beim Schreiben einer 3D- Physic Engine

Kante ich noch nicht sieht aber auf den ersten blick echt toll aus, danke nu hab ich erst mal wieder was zum Lesen ;)
von corpsman
So 11. Mai 2025, 09:02
Forum: Sonstiges
Thema: Ideen / Hilfe beim Schreiben einer 3D- Physic Engine
Antworten: 4
Zugriffe: 1734

Re: Ideen / Hilfe beim Schreiben einer 3D- Physic Engine

Steht doch auf der 1. Seite ?

What is needed to compile and run the examples ?

clone this repository
download uvectormath.pas

Now you have everything to compile the engine. In order to be able to compile the examples you also need to be able to use OpenGL:

install LazOpenGLControl into the ...
von corpsman
So 11. Mai 2025, 08:26
Forum: Sonstiges
Thema: Ideen / Hilfe beim Schreiben einer 3D- Physic Engine
Antworten: 4
Zugriffe: 1734

Ideen / Hilfe beim Schreiben einer 3D- Physic Engine

Hallo Zusammen,

Ich versuche mich gerade daran eine 3D Physik Engine zu schreiben, natürlich Quelloffen und wer Lust hat sich meinen Fortschritt an zu sehen, der kann dass hier tun.

Meine "Todoliste" für dieses Vorhaben sieht aktuell so aus:

1. Convexe Collider erzeugen
2. Mittels "kräften" und ...
von corpsman
Di 22. Apr 2025, 08:31
Forum: Einsteigerfragen
Thema: Auto-Filter wie in Excel?
Antworten: 15
Zugriffe: 2714

Re: Auto-Filter wie in Excel?

Die Idee ist eigentlich recht einfach

In einer Stringgrid kannst du jeder Zeile eine Eigene "Höhe" in Pixeln geben.
Die Filterfunktion setzt die Höhe einer Zeile die nicht angezeigt werden soll auf 0
\-> der Mensch sieht sie nicht mehr, für den Rechner ist sie noch da, alle sind Glücklich und das ...
von corpsman
Mo 21. Apr 2025, 07:27
Forum: Einsteigerfragen
Thema: Auto-Filter wie in Excel?
Antworten: 15
Zugriffe: 2714

Re: Auto-Filter wie in Excel?

Also in einer TStringgrid habe ich das bisher immer über die Rowhöhe gemacht (Beispiel aus dem FPC_DOOM WAD_Viewer :


Procedure TForm1.Edit1Change(Sender: TObject);
Var
c, i: Integer;
s: String;
Begin
StringGrid1.BeginUpdate;
ClearOtherFilter(edit1);
If Edit1.text = '' Then Begin
For i := 1 ...
von corpsman
Fr 18. Apr 2025, 13:27
Forum: Sonstiges
Thema: Finden einer Mathe funktion, ChatGPT hat versagt :/ [gelöst]
Antworten: 5
Zugriffe: 2376

Re: Finden einer Mathe funktion, ChatGPT hat versagt :/ [gelöst]

:lol:
oder ich die Intelligenz falsch gefragt habe. Die Parabel Umrechnung hat ChatGPT richtig generiert. Zumindest recht lange hatte ich ja den falschen ansatz und dachte, dass das äquidistante abtasten im Urbildraum auch äquidistante Punkte im Bildraum gibt, was ja nicht so ist. Ganz böse Zungen ...