Deutsches Lazarusforum

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.

Das ist die erste Routine, die auf das Array zugreift, Diese wird einfach mit dem Wert initialisiert. Eigentlich mit '' aber das ging auch nicht. Deshalb probeweise das 'x'.
Ich bin jetzt nicht an dem Rechner, aber morgen werde ich mir das mal genauer ansehen.
Bis dahin danke für die Ratschläge.

Ich habe den Schleifenstart nur zur Probe auf 1 gesetzt.
sonst geht es schon bei null los.
Mir fällt gerade ein, dass ich heute bei Arbeitsbegin eine andere Meldung bekam, "Die Datei auf dem Datenträger wurde geändert. soll neu geladen werden" oder so ähnlich. Ich habe dann auf Ja angeklickt. Beim ...

Hallo zusammen.
Ich habe folgendes Problem.
in folgendem Abschnitt
test := 'test'; //Diese Zeile funktioniert noch
for b:=1 to 20 do
begin
bue_stapel[b].zeit:=0; //diese Zeile funktioniert auch
bue_stapel[b].bue_bezeichnung := 'x'; //hier kommt die Fehlermeldung
end;
kommt eine ...

Danke, hat sich durch Zufall erledigt.
Der Zielprozessor war falsch eingestellt.
Hier hätte ich gezielt wohl nicht gesucht.