Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
if
Edit1.Text= '' then
showmessage('Mehr als 0 Zeichen')
else
x:= Length(Edit1.Text)*382888294;
delete(IntToStr(x),4,4);
Label1.Caption:=IntToStr(x);
end;
end.
Ich bekomme immer die Fehlermeldung:
[Fehler] Passwort(41): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
Bei dieser Zeile: delete(IntToStr(x),4,4);
Der Code soll die Zeichenlänge des Strings den man bei Edit1 gibt ermitteln(hallo=5)
Dann soll er eben die Länge mal die o.g Zahl nehmen.
Dann soll er ab Position 4, 4 Zeichen löschen. Und das Ergebnis in Label1 anzeigen.
Ich weiß leider nicht wie ich den Fehler beheben kann.