20 Jahre Deutsches Lazarusforum

Hat mich grade neugierig gemacht :wink:

Global und Lokal, beides funktioniert bei mir:


var Pointer:String;

procedure TForm1.FormCreate(Sender: TObject);
begin
Pointer:='Hallo';
Caption:=Pointer;
end;

und auch das geht:

procedure TForm1.FormCreate(Sender: TObject);
var Pointer:String ...

iGit

Danke Theo für die die Info.
Ja, ich hab das grad mal recherchiert, das liegt wirklich an Git selbst.
Die gesamte Historie wird bei Git separat abgelegt,
Das Datum der Dateien ist das Datum des Zippens.

Du hast recht Theo, die sind alle vom 30.06, heut ist zwar auch der 30 zigste, deshalb habe ich das wohl übersehen.
Aber egal, alle gleiches Datum, damit weis man nicht wann diese Dateien wirklich erstellt wurden.
Das Zip Archiv wurde zum Zeitpunkt xx erstellt, aber doch nicht die ganzen Dateien ...

Hallo zusammen,

Eine vermutlich ganz triviale Frage:
Ich habe mir eben "Synapse" runtergeladen.

Quelle hier:
https://github.com/geby/synapse

Nun habe ich eine synapse-master.zip Datei.
Wenn ich die Auspacke, haben ALLE Dateien das gleiche Datum von heute.
Egal ob Erstellungsdatum oder ...

Theo, Du hast den Faktor "Spass" vergessen...
Ich liebe es auch nach 40 Jahren Programmierung noch immer irgendwo ein paar Zyklen einzusparen.... :P
Assembler Code optimieren usw. Das macht mir einfach Spass. :wink:
Nun bin ich auf Rente, Renter haben zwar nie Zeit, aber für sowas schon. :mrgreen:

Insgesamt lässt sich sagen. Viele Wege führen zum Ziel.
Jede Methode hat ihre daseins Berechtigung. Auch die von wp_xyz, da diese am wenigsten Speicher benötigt.
Auch Theos Methode probiert. Funktioniert auch super.
Meine ist mit Abstand die "komplizierteste" das muss ich zugeben. Ich bin halt noch ...

Hallo shokwave,

ersteinmal Danke, dass Du dich diesem Problem mal gewidmet hast.

Ich war erstmal erstaunt, ich hätte nicht annähernd gedacht, dass man derartig gut "lesbaren" Code dafür schreiben kann.
Ganz ehrlich, das gefällt mir natürlich wesentlich besser als meine Pointerei :roll:
und das ...

Hallo zusammen,
ich sitze grade an einem recht trivialen Problem, doch zuvor die Hintergründe.

Ich habe eine kleine Schaltung mit 3 Tastern. Diese Taster habe ich per Software entprellt.
Meiner Meinung nach auch recht "ordentlich"
Doch es traten immer wieder mehrfach Auslösungen auf (Prellen ...

Die "richtige" Fragestellung ist natürlich ganz entscheidend, da stimme ich Dir voll und ganz zu.
Man merkt aber, dass durch eine kleine Abweichung in der Fragestellung ein evtl. undefiniertes/falsches Ergebnis zu Stande kommen kann.

Und wie gesagt, habe ich ja auch schon sehr positive Erfahrungen ...

Ich habe diese einfache Aufgabe mal mit chatgpt gelöst....(oder auch nicht )
Wenn diese "einfachen" Aufgaben schon nicht richtig funktionieren....
Schon der erste Satz ist falsch. Wer so programmieren lernen will, wird wohl scheitern.

Ich habe das eben nochmal probiert mit Copilot:
So ganz einig scheint sich die KI wohl nicht zu sein.
Angeblich kommt das Gleiche raus bei C und Pascal.....

Moin zusammen, ich habe jetzt noch nicht so viel mit KI gemacht,
habe aber auch schon hilfreiche, aber auch völlig falsche Informationen erhalten.
Drum möchte ich euch diesen Chat einfach mal zeigen...
Das war "Copilot" also die Microsoft KI:

Irgendwann hab ich schon an mir selber gezweifelt ...

Guten Morgen,
ich MUSS hier einen Kommentar hinterlassen: GEIL.
Das funktioniert ja ganz hervorragend, ich war wirklich überrascht... :shock: auch über die Geschwindigkeit.
Vielen Dank für diesen tollen Code und ein schönes Wochenende.

ich habe mal die Zeile:
// btnRotate.Enabled := False ...

Guten Morgen,
ich habe eben noch folgendes probiert:

uses.....,LazUTF8; // Hier ist die funktion UTF8Length implementiert

var
// s:string; // 3
// s:Array of Char; // UTF8Length geht nicht
// s:ShortString; // 3
// s:UTF8String; // 6
// s:ShortString; // 3
// s:UnicodeString; // 6
// s ...

Probleme handelt man sich recht schnell ein, wenn man die Funktion "length" benutzt:

Folgender Code gibt unterschiedliche Ergebnisse:

procedure TForm1.FormCreate(Sender: TObject);
begin
s:='äöü';
caption:=IntToStr(length(s));
end;

Ich habe mal die folgenden Typen für den String s probiert ...