Deutsches Lazarusforum

Danke für die Antworten.
Ich werde morgen mal die Lösung von Siro probieren. Das wäre mir das liebsten, weil ich da am wenigsten ändern muss.
Herzlichen Dank.

Hallo zusammen
Ich habe in meinem Projekt Modellbahnsteuerung eine Komponente Die Serialschnittstellen behandelt.
Ich benutze die Softwarekomponenete "SerCOM 1.2" von Dynamo Software.
Doch jetzt habe ich ein Problem. Ich habe eine zusätzliche Schnittstelle Installiert, die im Gerätemanager als ...

Danke für die Antworten, das hat mir schon sehr weiter geholfen.

Gruß Fritz

Ich habe folgendes Problem: Der User schreibt einen Text in ein Textfeld.
Dieses muss formatiert vorliegen um es in (nebst anderen Textfeldern)einer Datei zu speichern. Dazu muss der Text genau 20 Zeichen lang sein, Die nicht eingegebenen Stellen sollen Leerzeichen sein.
Also: Ich gebe ein: "W123 ...

Ich habe den Fehler gefunden, es gab einen Menüeintrag mit dem selben Namen.

Wenn jemand interesse an dem Projekt , die Steuerung einer Modelleisenbahn, hat ,kann er die Dateien gerne haben. Ich muss das ja nicht ins Grab mitnehmen.
Um das Programm zu verstehen, sollte man aber wenigstens eine ...

Da sich alles in der eigenen Klasse abspielt, ist die explizite Klassenangabe nicht nötig. Beim angegebenen Beispiel "weiche_umst(akt_element)" funktioniert das ja auch.

Hallo zusammen.
Ich möchte eine Procedue aufrufen, und bekomme die Fehlermeldung: illegal expression.

Hier die Deklaration: (die mittlere Zeile. )

procedure weiche_umst(akt_element:Pdaten_element);
procedure aufzug_umstellen(akt_element:Pdaten_element);
procedure weiche_nach_links(element ...

Ja, liebe Freunde. Ich hatte gedacht, dass ich vor ein paar Tagen eine Dankmessage an euch geschickt hätte, kam aber hier nicht an. Vielleicht habe ich vergessen sie abzuschicken.
Auf alle Fälle nochmals vielen Dank, es war sehr aufschlussreich.

Was wollte ich?
Ich möchte meinem Enkel (10) das ...

Hallo zusammen
Ich studiere gerade ad Ereignis KeyDown und habe als Beispiel folgenden Code gefunden
uses
LCLType, Dialogs, ...;

...

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_DOWN) or
(Key = VK_UP) then
ShowMessage('Pfeiltaste ...

Danke für die Antworten, ds hat mir schon weiter geholfen.

Und noch schöne Feiertage!

Hallo zusammen
Ich will einen Taschenrechner programmieren
Dabei muß ich auch ein Komma eingeben. Um mehrere Kommas zu vermeiden teste ich den Eingabestring für die Zahl auf ein bereits vorhandenes Komma.
Ich will also den String im Eingabefeld mittels einer for next Schleife testen. Dazu brauche ...

Danke für die Antworten.
Das Ganze wird kein größeres Projekt. Ich lerne gerade meinem Enkel (11 Jahre) das programmieren. und das sind nur Programmschnipsel. Es sind halt erste Schritte
Ich programmiere nun schon seit vielen Jahren, und falle dann über so etwas. 10 Kübel Scheißdreck über mich !!!

var
Form1: TForm1;
name:string;
zahl1,zahl2:integer;

implementation

{$R *.lfm}

{ TForm1 }
procedure TForm1.eingabe1Change(Sender: TObject);
begin
name:= eingabe1.Text;
ausgabe.Text:=name;

zahl1:=strtoint(eingabe1.text);

Bei der Ausführung des oben gezeigten Codes kommt es zu folgendem ...

Ich habe jetze noch ein 2. Array mit der Bezeichnung bue_stapel2 angelegt, da funktioniert jetzt alle.
keine Ahnung warum, aber egal, die paar bytes liegen gut tot im Speicher.
Für mich ist das Problem gelöst.

Danke für eure Bemühungen

Ich hatte zuerst string, Das ging nicht, dann habe ich es mit ansistring versucht. auch vergeblich.