Wo ist der Fehler in meinem Code?

Hallo, ich habe ein Problem, ich bin gerade in der Programmiersprache Lazarus am programmieren, ich mache gerade einen Stromkostenvergleichsrechner, nun mein Problem:

IF(realEvu1GeskMitTBonus<realEvu2GeskMitTBonus) Then Begin LBLSparen.Caption := realEvu1GeskMitTBonus-realEvu2GeskMitTBonus end;

(Bei den Fehlermeldungen steht : Error: Incompatible type for arg no.1: Got "Real", expected "TTranslateString")

Was ist daran falsch?

2 Antworten

Adrian2612

11.12.2022, 20:30

In dem gegebenen Code wird versucht, den Wert der Variablen

realEvu1GeskMitTBonus

mit dem Wert der Variablen

realEvu2GeskMitTBonus

zu vergleichen. Dabei wird jedoch ein Fehler gemacht, indem der Rückgabetyp der Subtraktion, ein numerischer Typ, als Eingabeparameter für die

LBLSparen.Caption

-Eigenschaft verwendet wird, die einen Texttyp erwartet.

Um den Fehler zu beheben, müssen Sie den numerischen Wert in einen Text konvertieren, bevor Sie ihn als Eingabeparameter für die

LBLSparen.Caption

-Eigenschaft verwenden. Dazu können Sie die

ToString

-Methode verwenden, um den numerischen Wert in einen Text zu konvertieren. Der Code sollte dann wie folgt aussehen:


Copy code
if (realEvu1GeskMitTBonus < realEvu2GeskMitTBonus) { LBLSparen.Caption := (realEvu1GeskMitTBonus - realEvu2GeskMitTBonus).ToString(); }

In diesem Beispiel wird der numerische Wert, der durch die Subtraktion der Variablen

realEvu1GeskMitTBonus

und

realEvu2GeskMitTBonus

berechnet wird,

ohwehohach

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

13.09.2017, 17:20

Lazarus ist eine Entwicklungsumgebung. Die Programmiersprache heißt Object Pascal. Aber das nur am Rande.

Der Fehler ist ja völlig klar. Du hast zwei Real-Werte (die Variablennamen beginnen ja schon mit "real") und willst das Ergebnis einer Caption zuweisen. Eine Caption ist aber ein String und kein Real. Du musst also das Ergebnis der Subtraktion zunächst in einen String umwandeln (FloatToStr-Funktion):

LBLSparen.Caption := FloatToStr(realEvu1GeskMitTBonus-realEvu2GeskMitTBonus);

Trickonomy

Beitragsersteller

13.09.2017, 17:24

Kannst du mir den Code bitte schreiben, ich verzweifle echt noch daran.... Währe super!

ohwehohach

13.09.2017, 17:25

@Trickonomy

Hab ich doch.

tavkomann

13.09.2017, 17:31

@Trickonomy

http://xn--wre-whre-0zae.de/

Ähnliche Beiträge

Wieso funktioniert der Code in Lazarus nicht?

Hallo, ich lerne gerade ein wenig mit Lazarus zu programmieren.

Ich möchte dabei Hotkeys programmieren, die man außerhalb von der TForm nutzen kann. Leider funktioniert das bei meinem Programm nicht, aber ich weiß nicht, was das Problem ist.

Code:

unit unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LCLType, Windows;
type
  { TForm1 }
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;
  HotkeyRegistered: Boolean;

implementation
{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotkeyRegistered := False;
  RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_SHIFT, VK_NUMPAD1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HotkeyRegistered then
    UnRegisterHotKey(Handle, 1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_NUMPAD1) then
  begin
    ShowMessage('Hotkey wurde gedrückt!');
  end;
end;

end.

Weiß jemand, woran das liegt?

...zum Beitrag

Lazarus: Wie kann ich nach dem dritten Versuch das Programm abbrechen lassen?

Folgende Aufgabe:

Wir wollen ein Programm schreiben, welches eine Passwortabfrage simuliert. Der Nutzer soll drei Eingabeversuche haben und nach der dritten Falscheingabe eine Nachricht erhalten, dass der Account gesperrt wurde. Hinterlege das Passwort „InformatikistToll!“ in einer Variable im Code.

Ich habe angefangen, eine Variable für das Passwort zu machen und eine Variable für die Passworteingabe.

Dann

if Passwort = PasswortEingabe then
begin
  writeln(fertig halt)

Aber wie kann ich nach dem dritten Versuch das Ganze abbrechen lassen?

...zum Beitrag

Lazarus Prüfen ob irgendetwas in TEdit-Feld steht. Wie geht das?

Hallo Leute,

Ich versuche mich gerade an Lazarus und möchte mit IF Then etwas programmieren. Dazu möchte ich sozusagen scannen ob etwas in einem TEdit-Feld steht. Dies versuche ich mit volgendem befehl:

if TEdit.text = 'X'

Ist es möglich für das X etwas einzusetzen, dass sozusagen nichts bestimmtes in dem Feld stehen soll sondern das er scannt ob einfach irgendwas in dem Feld steht? Oder gibt es dafür vielleicht einen anderen Befehl?

...zum Beitrag

In einem bestimmten Intervall alle Primzahlen ausgeben?

Hallo liebe Community ich habe folgendes Problem, ich habe die Aufgabe ein Programm zu schreiben, welches mir aus dem Intervall von 20-30 ausgibt wie viele Primzahlen dort enthalten sind und welche es sind. Anstatt mir aber, 2 als Anzahl und 23 und 29 als Primzahlen auszugeben, gibt mir das Programm 77 als Anzahl und dann ne Menge Zahlen aus. Ich verstehe jedoch nicht warum.

Quellcode:

procedure TForm1.StartClick(Sender: TObject);
var
  A, B, C, ANFANGS_WERT, END_WERT, ANZAHL : Cardinal;
  IST_PRIMZAHL : Boolean;
  PRIM_FELD : array[1..100] of Cardinal;
begin
  ANZAHL := 0;
  ANFANGS_WERT := StrToInt(Eingabe1.Text);
  END_WERT := StrToInt(Eingabe2.Text);
  for A := ANFANGS_WERT  to END_WERT do
  begin
    IST_PRIMZAHL := true;
    for B := 2 to (A div 2) do
    begin
      C :=  A mod B;
      if C = 0 then
      begin
        IST_PRIMZAHL := false;
      end
      else if IST_PRIMZAHL = true then
      begin
        Inc(ANZAHL);
        PRIM_FELD[ANZAHL] := A
      end
      else IST_PRIMZAHL := true;
    end;
  end;
  Ausgabe.items.add(' Primzahlen: ' + IntToStr(ANZAHL));
  for A := 1 to ANZAHL do
    begin
      Ausgabe.Items.Add(IntToStr(PRIM_FELD[A]));
    end;
end;

...zum Beitrag

Programmieren: statt if..then..?

Hallo,

ich schreibe grade ein prpgramm für die Schule. Und ich habe if..then.. verwendet aber das ist nicht erlaubt.

ich habe aber zwei Möglichkeiten. Wenn es einen Rest gibt dann muss das eine ausgegeben werden, wenn es keinen Rest gibt(also mit mod) dann muss was anderes ausgegeben werden. Wie kann ich das machen ohne if then?
die Lehrerin meint was mit Bildchen variablen und cast oder rein mathematisch. Aber ich verstehe nicht was sie meint. Ich kenne mich halt gar nicht aus………. 😭😭.

(Programmiersprache: Pascal)

danke im Voraus !! !

...zum Beitrag

Welche Programmiersprache soll ich lernen?

Hallo,

Ich bin SPS Programmierer und arbeite mit Siemens TIA-Portal (KOP, FUP, SCL, Wincc).

Ich möchte allerdings andere Programmiersprachen lernen. Welche würdet ihr mir empfehlen?

am besten eine mit der man gute Chancen auf einen Job hat.

...zum Beitrag

'...' erwartet aber '...' gefunden?

Hallo an allen,

zuerst den Code:

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}

var
  f, alter:Integer;
  durchschnitt1, durchschnitt2, durchschnitt3: Double;
begin
  WriteLn('Morgenschicht:');
  WriteLn;
  for f:=1 to 5 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt1 := durchschnitt1 + alter;
  end;
  durchschnitt1 := Round((durchschnitt1 / 5),2);
  WriteLn;
  WriteLn;
  WriteLn('Spätschicht:');
  WriteLn;
  for f:=1 to 6 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt2 := durchschnitt2 + alter;
  end;
  durchschnitt2 := Round((durchschnitt2 / 6),2);
  WriteLn;
  WriteLn;
  WriteLn('Nachtschicht:');
  WriteLn;
  for f:=1 to 11 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt3 := durchschnitt3 + alter;
  end;
  durchschnitt3 := Round((durchschnitt3 / 11),2);
  WriteLn;
  WriteLn;
  WriteLn('Das Durchschnittsalter der Schüler der Morgenschicht beträgt: ', durchschnitt1, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Spätschicht beträgt: ', durchschnitt2, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Nachtschicht beträgt: ', durchschnitt3, '.');
  if (durchschnitt1 > durchschnitt2) and (durchschnitt1 > durchschnitt3) then
  begin
    Write('Die Morgenschicht hat das höchste Durchschnittsalter.');
  end
  else
  begin
    if durchschnitt2 > durchschnitt3 then
    begin
      Write('Die Spätschicht hat das höchste Durchschnittsalter.');
    end
    else
    if durchschnitt3>durchschnitt1 then
    begin
      Write('Die Nachtschicht hat das höchste Durchschnittsalter.');
    end;
  end;
  ReadLn;
end.

Ich habe aber folgende Fehlermeldung bekommen:

1) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

2) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

Diese Meldungen sind für mich nicht logisch. Was habe ich falsch gemacht bzw. wie kann ich diese Fehler lösen?

Danke und Grüße

...zum Beitrag

was machen wenn '.class'= expected als Fehler besteht?

Hallo ich lerne gerade Programmieren für meine Komplexe Leistung. Ich versuche mich an einer if- Funktion, scheitere allerdings an einem Fehler. Wenn ich meinen Code Ausführe wird bei mir angezeigt " error: '.class' expected ". Ich würde gerne wissen was ich falsch gemacht habe, ich stelle meinen Code mal mit rein.

public class mist {

int dumm = 3;

public static void main(String[] args) {

System.out.println("Ich bekomm das nicht hin");

if( int = true);

System.out.println("Lol");

}

...zum Beitrag

NIKI der Roboter, Hilfe

Hallo zusammen :)

An alle, die sich ein bisschen mit programieren auskennen. Ich habe diesen Befehl beim Programierspiel "NIKI der Roboter" eingegeben:

IF vorne_frei THEN
BEGIN
 WHILE vorne_frei DO vor;
END;

IF NOT vorne_frei THEN
BEGIN
 WHILE NOT vorne_frei DO drehe_links;
END;

nun möchte ich wissen, wie ich machen kann, dass der Befehl sich immer und immer wieder wiederholt, sodass ich nicht auf den grünen Pfeil klicken muss.

Danke im Vorraus MBudgetOwn

...zum Beitrag

Hey! Ich soll für die Hochschule Mau Mau programmieren in Lazarus (standard Delphi pascal) und weiß nicht wie ich das machen soll. Kann mir da jmd helfen?

Hey, ich muss bis Montag Mau Mau in Lazarus (Programmiersprache: standard Delphi pascal, welche die standard component von Delphi benutzt) programmieren und weiß nicht wie ich das anstellen soll. Ich habe auch Teamspeak und Skype, damit die kommunikation leichter ist.

...zum Beitrag

Java: Warum dieser Fehler ("incompatible types: int cannot be converted to boolean")?

int zahl = (int)(Math.random() * 10 + 1);
int zahl2 = NumberField.getInt();

if (zahl = zahl2) {
  jLabel2.setText("GEWONNEN");
}
else {
  jLabel2.setText("VERLOREN");
}

Die Fehlermeldung:

error: incompatible types: int cannot be converted to boolean
  if (zahl = zahl2) {
           ^

(Wenn die beiden Zahlen gleich sind, dann ...)

...zum Beitrag

Bei Java (Greenfoot) einen Befehl wiederholen ohne viel Schreibarbeit

Hallo Community, Ich muss für meinen Informatik-Kurs in der Schule mit "Greenfoot" arbeiten. Da muss ich die sogennante "Spinne"/"Tarantel" so programmieren, dass sie allen Hindernissen ausweicht.

Mein Code(leider auf Deutsch) : public void fliegeSuchen()

{

if (klatscheVorn()) {

linksDrehen();

schritt();

rechtsDrehen();

schritt();

}

else {

fuenfschritte();

fliegeFressen();

Obwohl es schwer erkennbar ist, ist es die Bedingte Anweisung "If .... then " nun möchte ich es so programmieren, dass sie sich beliebig oft wiederholt.

Meine Frage: Wie wiederholt man eine "If .... then" Anweisung BELIEBIG OFT

Danke schonmal im Vorraus! (Bitte Antwort mit Erklärung oder einfach gestalten) IIch bin nämlich noch Schüler und nicht der beste Programmierer!

...zum Beitrag

Lazarus bzw. Programmiersprache "Pascal" problem beim erstellen eines Taschenrechners?

Hallo.

Ich bin gerade dabei einen Taschenrechner auf Lazarus mit der Programmiersprache Pascal zu programmieren.
Dennoch hab ich bei einer Sache ein Problem (bin noch Anfänger in diesem Bereich).
Und zwar schaffe ich es nicht, dass es ausgerechnet wird.
Also ich hab es erstmal mit einem label probiert.
Da schaff ich (komisch gesagt) nicht die opperatoren (+,-,*,/) von den Zahlen zu "Filtern".
Also so dass erkannt wird was davon die zahl ist und was der opperator damit das automatisch ausgerechnet wird.

2.Variante ist, ich hab 3 edits. Ein Edit für die erste zahl und eins für die zweite und eins für den opperator aber da hab ich das problem mit der virtuellen tastatur (welche dabei sein muss), da ich nicht weiß wie man da einstellt (auch nicht vom nachdenken her) dass man in das 2. edit feld schreibt wenn man die 2.zahl schreiben will. z.b. dass sobald man auf die edit fenster klickt, dass dann jede zahl die eingegeben wird nur da angezeigt wird.

Hoffe es ist einigermaßen verständlich.

Kurze zusammenfassung:
1. wie bringt man einen Taschenrechner mit Lazarus mit nur einem label wo alles reinkommt zum rechnen
2.Wie macht man es so, dass bei einer virtuellen tastatur, sobald man auf ein edit fenster klickt , alles was man klickt in dem ausgewählten edit fenster landet?

danke im Vorraus

...zum Beitrag

Free/TurboPascal. Wie kann ich doppelte Zahlen aussortieren?

Hi, ich wollte mir vor kurzem mit Pascal ein Lotto-Programm programmieren. Ich bin schon so weit und habe es so programmiert, dass die Zahlen in einer Reihe mit Strichen kommen, also ungefähr so: 5-9-45-27-44-12. Das ist mein Programm:

program Lotto;

uses crt;

var a, e, i ,o, u, x: byte;

start: char;

begin

clrscr;

write('Möchten sie eine Lotto-Ziehung simulieren? (j/n)');readln(start);

if start = 'j' then begin

randomize;

a:= random(49) + 1;

e:= random(49) + 1;

i:= random(49) + 1;

o:= random(49) + 1;

u:= random(49) + 1;

x:= random(49) + 1;

write(a);

write(-e);

write(-i);

write(-o);

write(-u);

write(-x);

repeat until keypressed;

end

end.

Das Problem ist das manche Zahlen doppelt vorkommen können. Wie kann ich das ändern?

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen