Problem mit Typumwandlung

Tabakbrummel · Beiträge: 124 win 7 Turbo Delphi, VS 20010 Express

Hallo

Mein Problem ist mit den Trunc da Kommt Inkompatible Typen:
Was mache ich hier Falsch?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button2Click(Sender: TObject);
Const Anzünder: Array[0..1] of Real = (0.8, 1.5);
var
  Zünder : String;
  Ohm, Dateiname : Real;
begin
  Dateiname := Anzünder[ComboBox1.ItemIndex];
  Ohm := 0.018 / StrToFloat(Edit2.Text) * StrToFloat(Edit1.Text);
  Panel1.Caption := FloatToStr(Ohm);// + ' Ohm';
  Zünder := FloatToStr((StrToFloat(Edit3.Text) / Dateiname - StrToFloat(Panel1.Caption)) / 2);
  Panel2.Caption := Trunc(Zünder) + ' Zünder möglich';
end;

_________________
MfG
Tabakbrummel

Horschdware · Verfasst: Fr 20.02.09 16:52

Zitat Delphi Hilfe:

Zitat:

Die Funktion Trunc konvertiert eine Gleitkommazahl in einen Integer-Wert.

Zünder ist bei dir aber vom Typ String.

_________________
Delphi: XE - OS: Windows 7 Professional x64

Tabakbrummel · Beiträge: 124 win 7 Turbo Delphi, VS 20010 Express

Hallo

Jetzt habe ich es so gemacht, da kommt jetzt z.b. 6,6 ist kein gültige Integerwert

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button2Click(Sender: TObject);
Const Anzünder: Array[0..1] of Real = (0.8, 1.5);
var
  Zünder : String;
  Ohm, Dateiname : Real;
begin
  Dateiname := Anzünder[ComboBox1.ItemIndex];
  Ohm := 0.018 / StrToFloat(Edit2.Text) * StrToFloat(Edit1.Text);
  Panel1.Caption := FloatToStr(Ohm);// + ' Ohm';
  Zünder := FloatToStr((StrToFloat(Edit3.Text) / Dateiname - StrToFloat(Panel1.Caption)) / 2);
  Panel2.Caption := IntToStr(Trunc(StrToInt(Zünder))) + ' Zünder möglich';
end;

_________________
MfG
Tabakbrummel

Tabakbrummel · Beiträge: 124 win 7 Turbo Delphi, VS 20010 Express

Hallo

Ich habe es Hinbekommen.

markieren

Delphi-Quelltext

1:	Panel2.Caption := IntToStr(Trunc(StrToFloat(Zünder)));

_________________
MfG
Tabakbrummel

jaenicke · Verfasst: Fr 20.02.09 17:26

Wandele doch den Wert vorher gar nicht erst in einen String um, wenn du ihn danach noch in dieser Weise weiter verarbeiten willst...
Nimm statt deinem Quelltext:

markieren

Delphi-Quelltext

1:
2:
3:

  Panel1.Caption := FloatToStr(Ohm);// + ' Ohm';
  Zünder := FloatToStr((StrToFloat(Edit3.Text) / Dateiname - StrToFloat(Panel1.Caption)) / 2);
  Panel2.Caption := IntToStr(Trunc(StrToFloat(Zünder)));

doch lieber den:

markieren

Delphi-Quelltext

1:	Panel2.Caption := IntToStr(Trunc((StrToFloat(Edit3.Text) / Dateiname - Ohm) / 2));

Dann sparst du dir die ganze Rückrechnerei. Ggf. kannst du das natürlich auch alles in Variablen packen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme