inkompatible Typen - wieso?

newbie333 · Beiträge: 43

Hallo,
ich bekomme die Fehlermeldung angezeigt, dass folgendes inkompatible Typen sind:

Delphi-Quelltext

1:	if [length(edit1.text)-a] = strtoint('e') then

leider finde ich den Fehler nicht.

Wäre nett wenn ihr mir helfen könntet!
Danke schonmal.

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am So 28.06.2009 um 00:58

jakobwenzel · Verfasst: Sa 27.06.09 22:30

wieso benutzt du eckige Klammern?
Von welchem Typ ist a?
Und wenns kompilieren täte würds abstürzen, da e keine Zahl ist...

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

newbie333 · Beiträge: 43

ok habs abgeändert:

markieren

Delphi-Quelltext

1:	b:=[length(edit1.text)-a];

b und a sind jeweils integer typen.

immer noch falsch

Moderiert von Narses: Delphi-Tags hinzugefügt

Dunkel · Beiträge: 682 Mac OS X Snow Leopard Xcode 3.1

'e' ist aber kein Integer!

_________________
Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]

newbie333 · Beiträge: 43

Hab den Fehler entdeckt und schon wieder ein neues Problem.(Tut mir leid bin Anfänger

)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var zaehler,b, a,n:integer;

begin
n:=strtoint(edit1.text);
zaehler:=0;
a:=1;


while a <= length(edit1.text) do
begin
b:=edit1.text[a]; // hier Fehlermeldung: Inkompaible Typen 'Integer' und 'Char'?
if b = 'E' then
inc(zaehler);
inc(a);
end;
label1.caption:=inttostr(zaehler);

end;

end.

jaenicke · Verfasst: Sa 27.06.09 22:43

newbie333 hat folgendes geschrieben :

b:=[length(edit1.text)-a];

Was sollen die eckigen Klammern? Ich sehe kein Array oder so, auf das du damit zugreifen könntest?

// EDIT:
Und bei der Zeile:
Edit1.Text[a] ist ein Buchstabe und keine Zahl. Ord(Edit1.Text[a]) ginge, aber in der nächsten Zeile brauchst du wiederum einen Buchstaben, also wozu überhaupt die Zwischenvariable? :gruebel:

markieren

Delphi-Quelltext

1:
2:

if Edit1.Text[a] = 'E' then
  ...

// EDIT2:
Und warum überhaupt so kompliziert?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

begin
  zaehler := 0;
  for a := 1 to Length(Edit1.Text) do
    if Edit1.Text[a] = 'E' then
      Inc(zaehler);
  Label1.Caption := IntToStr(zaehler);
end;

newbie333 · Beiträge: 43

weil wir noch keine for-Schleifen können

Aber danke!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme