Delphi in Lazarus-Projekt umwandeln

[theo]

Das ist leider keine Option, die Anwendung hat ca. 250 globale variablen, ist wahrscheinlich ein schlechter Programmierstil.

Vermutlich.

[af0815]

In Delphi war dies egal und ich bin davon ausgegangen, das es in Lazarus auch egal ist.

Lazarus ist nicht Delphi. Punkt.

Gehe einmal davon aus, das es ein komplett anders aufgebautes System ist. Mit Vorteilen und manchmal mit scheinbaren Nachteilen (SCNR).

Auch hat Lazarus nur einen 'Kompatilitätsmodus' der halt die meisten Eigenheiten von Delphi nachbaut (Frag mich ja nicht wie sinnvoll das ist - Ich verwende den Mode Delphi normalerweise nicht mehr).

Wenn, dann muss man sich mit Lazarus beschäftigen und nicht mit Delphi vergleichen.

[hum4n0id3]

Ich habe noch eine Idee: Wenn du nicht mehr sicher bist, ob eine globale Variable irgendwo verwendet wird, dann kommentiere sie einfach aus. Wenn's kompiliert war sie überflüssig.

Das ist leider keine Option, die Anwendung hat ca. 250 globale variablen, ist wahrscheinlich ein schlechter Programmierstiel.

In jeder, mir geläufigen, Programmiersprache sind Globale-Variablen schlecht. Weil merkst du bestimmt gerade selbst, sie dir auf die Füße fallen. Globale Variablen sind ganz gut mit einem Minenfeld vergleichbar. Du weißt das sie da sind, du weißt aber nie wo genau sie sind und welche auswirkungen sie haben. Irgendwann geht die Übersicht ganz einfach flöten.

Weil die Software von Delphi nach Lazarus wandert, würde ich es zum Anlaß nehmen und die Problematik der Globalen Variablen langsam auflösen. Wie af0815 gesagt hat, Lazarus ist nicht Delphi und bietet somit eine gelegenheit den Code umfassender anzupassen. Davon würde es auch profitieren, wenn es eine Delphi-Software bleiben würde.

[PascalDragon]

Danke für eure Unbterstützung.
Die Haken in Project --> Project Options --> Compiler Options --> Messages sind alle gesetzt.
Eine Variable in einer function/procedure, welche nicht verwendet wird, wird als Warnung gemeldet, eine global definierte Variable hingegen nicht.

Hat noch einer eine Idee?

Du musst sicher gehen, dass unter Projekt -> Projekteinstellungen -> Compilereinstellungen -> Ausführlichkeit ein Haken bei Notizen anzeigen (-vn) gesetzt ist, da die Nachricht für eine ungenutzte Variable eine relative niedrige Verbosity hat (und Notizen und Hinweise können unter Umständen sehr viele werden).

[theo]

Du musst sicher gehen, dass unter Projekt -> Projekteinstellungen -> Compilereinstellungen -> Ausführlichkeit ein Haken bei Notizen anzeigen (-vn) gesetzt ist, da die Nachricht für eine ungenutzte Variable eine relative niedrige Verbosity hat (und Notizen und Hinweise können unter Umständen sehr viele werden).

Das ändert nichts daran, dass bei ungenutzen globalen Variablen in Units keine Hinweise ausgespuckt werden.

Der Code:

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;
  Test:String;

implementation

{$R *.lfm}

end.    

ergibt lediglich:

Hint: (11030) Start of reading config file /home/theo/lazarus/fpcupdeluxe/fpc/bin/x86_64-linux/fpc.cfg
Hint: (11031) End of reading config file /home/theo/lazarus/fpcupdeluxe/fpc/bin/x86_64-linux/fpc.cfg
Free Pascal Compiler version 3.2.2-rrelease_3_2_2-0-g0d122c4953 [2022/06/24] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
(1002) Target OS: Linux for x86-64
(3104) Compiling /home/theo/lazarus/fpcupdeluxe/projects/project1.lpr
(3104) Compiling unit1.pas
(9022) Compiling resource /home/theo/lazarus/fpcupdeluxe/projects/lib/x86_64-linux/project1.or
(9015) Linking /home/theo/lazarus/fpcupdeluxe/projects/project1
(1008) 52 lines compiled, 2.1 sec
(1022) 2 hint(s) issued

[fliegermichl]

Ich denke, daß das Absicht ist. Wenn die Variable im Interfaceteil einer Unit definiert ist, kann bei Verwendung der Unit auch von aussen darauf zugegriffen werden.

Wenn man eine ungenutzte globale Variable in einer Programmdatei anlegt, erscheint der Hinweis.

[stoffel_hessen]

In jeder, mir geläufigen, Programmiersprache sind Globale-Variablen schlecht. Weil merkst du bestimmt gerade selbst, sie dir auf die Füße fallen. Globale Variablen sind ganz gut mit einem Minenfeld vergleichbar. Du weißt das sie da sind, du weißt aber nie wo genau sie sind und welche auswirkungen sie haben. Irgendwann geht die Übersicht ganz einfach flöten.

Weil die Software von Delphi nach Lazarus wandert, würde ich es zum Anlaß nehmen und die Problematik der Globalen Variablen langsam auflösen. Wie af0815 gesagt hat, Lazarus ist nicht Delphi und bietet somit eine gelegenheit den Code umfassender anzupassen. Davon würde es auch profitieren, wenn es eine Delphi-Software bleiben würde.

Würde ich gerne in Angriff nehmen, allerdings fehlt mir hier der Hintergrund, wie so etwas richtig und gut gelöst wird.
Ich hole mal etwas weiter aus, das Projekt um was es in erster Linie geht ist ein Tool welches zur Konfiguration von MPLS-Geräten verwendet wird.
Es gibt hier eine Vielzahl an Konfigurationsmöglichkeiten, welche über 7 weiter Formulare abgefragt bzw. ausgegeben werden, auch gibt es eine Unit in der Globale Funktionen abgelegt sind.
Außerdem gibt es etwa 110 Dateien als Vorlagenschnipsel, welche nach Bedarf zusammengebaut werden, diese sind als Pfad-Konstanten angelegt.
Auch werden Formularübergreifend Werte benötigt, welche eben in Globalen Variablen abgelegt werden.

Als kleines Beispiel, wird aus dem Maschinenname die Loopback-IP-Adresse berechnet (aus xx5325 wird die IP 10.19.215.125) und dann einer Globalen Variablen zugewiesen, da der Wert mehrfach verwendet wird.
Löst man so etwas anders?

Code: Alles auswählen

function TSDIAPP.MaschinennameInIP(Ziffern : string) : string;
var GeraeteArt : string;
    ersteZiffer : string;
    Ziffernrest : string;
    ZiffernInInteger : integer;
    StelleZwei : integer;
    i : integer;
    IPAdresse : string;
    IPAdresseGeraeteklasse : string;
begin
  GeraeteArt := copy (Ziffern,1,2);

  if GeraeteArt = 'xx' then IPAdresseGeraeteklasse := '10.19.2';
  if GeraeteArt = 'yy' then IPAdresseGeraeteklasse := '172.24.7.';

  ersteZiffer := copy (Ziffern,3,1);
  Ziffernrest := copy (Ziffern,4,3);
  ZiffernInInteger := strtoint (Ziffernrest);
  if RBxx.Checked
    then      // Loopback Adresse xx
      begin
        StelleZwei := 0;
        for i := 1 to 4 do
        if ZiffernInInteger > 200 then
                                    begin
                                      inc(StelleZwei);
                                      ZiffernInInteger := ZiffernInInteger - 200;
                                    end;
        IPAdresse := IPAdresseGeraeteklasse + inttostr (StelleZwei) + ersteZiffer + '.' + inttostr (ZiffernInInteger);
      end
    else IPAdresse := IPAdresseGeraeteklasse + inttostr (ZiffernInInteger);   // Loopback Adresse yy
  MaschinennameInIP := IPAdresse;
end;

Über ein paar Tipps, wie ich dies sinnvoll löse, würde ich mich sehr freuen.

[hum4n0id3]

Würde ich gerne in Angriff nehmen, allerdings fehlt mir hier der Hintergrund, wie so etwas richtig und gut gelöst wird.

Man muss auch nichts sofort überstürzen, den die Umstellung von Code bringt neuen Aufwand und muss vorbereitet werden. Deswegen ist es eine gute Frage, welche man hier (vielleicht separat im einem extra Thread) erfragen könnte. Mich würde es übringens auch interessieren wie es die Pascal-Profis lösen

Ich arbeite hauptsächlich mit PHP, JavaScript und hatte beruflich auch schon mit C# zu tun und ich löse solchen Sachen mit einem Service.

Als kleines Beispiel, wird aus dem Maschinenname die Loopback-IP-Adresse berechnet (aus xx5325 wird die IP 10.19.215.125).

Und genau das macht dann das Service. Du rufst es auf wenn du es benötigst und hast die Sicherheit das die Daten nicht irgendwo verändert werden. Wenn du dann Fehler feststellst, musst du normalerweise nur das Service untersuchen, ob da nicht der Fehler produziert wird und nicht (im schlimmsten Fall), das gesamte Programm.

[af0815]

Globale Variablen: Über ein paar Tipps, wie ich dies sinnvoll löse, würde ich mich sehr freuen.

Ich kapsle alles zugehörige in einer Klasse.

Bei mir verwendet: Daher hat die Klasse Maschine alles beinhaltet was sie braucht. Konfiguartionsparameter die allgemeiner sind, sind ebenso in einer Klasse. Das ganze meist in einem Datenmodul.

Generell erzeuge ich zur Laufzeit nur ein Formular (!!) automatisch. Dieses kümmert sich um den Splash, alle Datenmodule, alle Klassen auch um die Initialisierung in der richtigen Reihenfolge. Weil damit wird sichergestellt das alles Resourcen sauber gebunden werden und auch wieder entfernt werden.
Selten verwendet Teile werden sogar erst erzeugt und Initialisiert wenn sie wirklich gebraucht werden.

Sehr starke Verwendung von Frames und der Kapselung von dem Code in den Frames bei optischen Einheiten. Vererbung nur dort wo es sinn macht, die Kommunikation bzw. Datenweitergabe erfolgt über Schnittstellen, Events und Datenmodule. Also sehr modular. Vererbung von Frames ist normal bei mir. Ich habe da eine BasisFrameKlasse die die von mir normalerweise verwendeten Schnittstellen beinhaltet. Zum Beispiel die SQL-Connection. Das Frame selbst hat dezitiert keine Connection, das wird alles vom Hauptformular gemacht. Damit habe ich automatisch auf allen Frames eine Verbindung und wenn ich das Frame in einen anderen Projekt, Maschine, whatever verwende wird es trotzdem richtig and die Datenbank gebunden.

Gewisse Techniken entstehen auch daraus, wie die Arbeitsabläufe in der Firma gehalten werden.

[stoffel_hessen]

Deswegen ist es eine gute Frage, welche man hier (vielleicht separat im einem extra Thread) erfragen könnte. Mich würde es übringens auch interessieren wie es die Pascal-Profis lösen

Habe hierzu einen neuen Tread erstellt viewtopic.php?f=55&t=14390

[PascalDragon]

Ich denke, daß das Absicht ist. Wenn die Variable im Interfaceteil einer Unit definiert ist, kann bei Verwendung der Unit auch von aussen darauf zugegriffen werden.

Korrekt. Und der Compiler geht eben nicht nochmal alle vorkompilierten Units durch um zu schauen, ob da eventuell eine Variable ist, für die er eine Meldung ausgeben müsste.

[fliegermichl]

Ich denke, daß das Absicht ist. Wenn die Variable im Interfaceteil einer Unit definiert ist, kann bei Verwendung der Unit auch von aussen darauf zugegriffen werden.

Korrekt. Und der Compiler geht eben nicht nochmal alle vorkompilierten Units durch um zu schauen, ob da eventuell eine Variable ist, für die er eine Meldung ausgeben müsste.

Was ja auch gar nicht ginge, wenn die Unit in mehreren Projekten zum Einsatz kommt und die Variable mal verwendet wird und mal nicht.

[PascalDragon]

Ich denke, daß das Absicht ist. Wenn die Variable im Interfaceteil einer Unit definiert ist, kann bei Verwendung der Unit auch von aussen darauf zugegriffen werden.

Korrekt. Und der Compiler geht eben nicht nochmal alle vorkompilierten Units durch um zu schauen, ob da eventuell eine Variable ist, für die er eine Meldung ausgeben müsste.

Was ja auch gar nicht ginge, wenn die Unit in mehreren Projekten zum Einsatz kommt und die Variable mal verwendet wird und mal nicht.

Korrekt. Deswegen würde hieran auch nichts geändert.