Deutsches Lazarusforum

*g*
also ich mach mir da keine so Sorgen, ja die Ki Systeme werden immer besser und ich setze diese auch gerne auf Arbeit ein (allein schon weil mein AG dafür bezahlt).

Wenn man Dinge macht die schon zig mal gelöst wurden sind diese Systeme auch echt spitze. Aber ich arbeite in R&D, dort wird Code ...

An dieser Stelle würde ich direkt mal Werbung für fpc_understand machen . Damit kannst du auch sehr viele Statistiken und Infos zu deinem Programmen bekommen. Ich nutze das auch gern vor einer Veröffentlichung zum Auffinden von Dateien die zwar im Suchpfad, aber nicht in der .lpi gelistet sind ..

Also wenn ich ehrlich bin, sind deine Fragen ein klein wenig Diffus.

Kannst du in Worten erklären was genau du machen willst, mir drängt sich der Eindruck auf, dass deine Lösung ggf ganz anders ausfallen könnte ..


Type
TVec = Array[0..2] Of single;

{$J-}
Const
{$IFDEF Windows}v1{$ELSE}v2 ...

ist das nicht ein bisschen umständlich um 2 Variablen zu haben die auf den exakt selben Speicherbereich zeigen ?

Weis nicht ob es dass ist was du willst, aber das compiliert

*g*

Übrigens falls du dich fragst warum ich das gebraucht habe:
RGB_Jumper war mein Wochenende Projekt. Jedes Feld des Games hat eine Menge von Elementen, und ich habe eine Andere Menge Elemente gehabt, bei derer Schnittmenge ich die Pixeldaten der Map löschen wollte
.

siehe urgb_level.pas

If ...

danke theo, ich wusste doch, dass das einfacher gehen muss, ka warum ich das nicht ergoogeln konnte

Hallo Zusammen, ich brauche tatsächlich mal die Schnittmenge von 2 Sets, dazu habe ich mir das folgende gebastelt:



Type
MySet = Set Of char;

Function PlotSet(Const aSet: MySet): String;
Var
i: Char;
Begin
result := '';
For i := #0 To #255 Do Begin
If i In aSet Then Begin
If result ...

War wieder ein interessanter Austausch, mit vielen Interessanten Themen.

Das Beispiel zu "static" variablen

Procedure TForm1.Button1Click(sender:TObject);
const
staticVar:integer = 0;
begin
form1.caption := inttostr(staticVar);
staticVar := staticVar +1;
end;


Desweiteren haben wir ...

Schreibst ne Billard app ?

Das PingPong example kennst wahrscheinlich schon ...

Bei uns wirds chaotisch, da wir am We kein Auto haben, werde ich mal eine An / Abreise mit der Bahn versuchen

Da werde ich mit Scratchinator auch wieder mit dabei sein ..

Danke für die Erklärung, wieder was gelernt

Was richtig strange ist, der Prüft auch die Parameter nicht.
Wenn first nun parameter erwaretet und Second nicht wirds richtig grußelig..

*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