[Fehler] Unit1.pas(112): Inkompatible Typen

Kaeawc · Beiträge: 41

Ich will das wenn in Memo1 die Zahl "1" Steht, das das Image8 sichtbar wird.
Problem ist aber das ich immer den "Inkompatible Typen" Fehler bekomme, hier der Quelltext:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    GroupBox3: TGroupBox;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: Integer;



implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
   if Memo1.lines:=1
 then Image8.Visible:=false
end;

end.

Bitte um Hilfe :-)

Kaeawc

Moderiert von Gausi: Quote- durch Delphi-Tags ersetzt

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Meinst du vielleicht Memo.Lines.count ?
Zusätzlich ist es if Memo.Lines.Count = 1

greetz

EDIT: Ich empfehle hier einmal den Chrashkurs von Christian S. ( dessen Link ich immer noch nicht habe

) indem du die einige Grundlagen ansehen solltest

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Kaeawc · Beiträge: 41

Nein, funktioniert auch nicht. Er soll mir wenn in dem Memo1 Feld die Zahl "1" steht das Bild(Image8) sichtbar machen, wenn der Wert aber nicht 1 ist soll es unsichtbar(visible=false) bleiben.

Kann es nicht sein das der Fehler bei der Deklaration liegt?

retnyg · Verfasst: Di 15.11.05 21:26

markieren

Delphi-Quelltext

1:
2:

if Memo1.text='1'
then Image8.Visible:=false

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

Grishnak · Beiträge: 221 Windows XP Home Delphi 7 PE, Delphi 2005 PE

markieren

Delphi-Quelltext

1:	Image8.Visible := (Memo1.Text = '1');

oder etwas länger:

markieren

Delphi-Quelltext

1:
2:
3:

if Memo1.Text = '1'
  then Image8.Visible := true
  else Image8.Visible := false;

_________________
Mach' etwas idiotensicher und irgendjemand erfindet einen besseren Idioten!

Kaeawc · Beiträge: 41

Ich habe das Projekt mal hochgeladen, wäre SEHR dankbar wenn jemand versuchen könnte die Sache zum laufen zu bringen da morgen Abgabetermin für das Projekt ist =/

Hier der Link: inexpensive2.spy-hos...Zufallsgenerator.zip

-- Nachtrag: Habe mal eure Möglichkeiten versucht kam aber zu keinem Ergebnis, vielleicht liegt es auch daran das ich irgendwo nen Fehler gemacht habe, wäre nett wenn ihr mal schauen könntet ob ihr es hinbekommt

--

Amateur · Verfasst: Di 15.11.05 21:40

das wird sicher niemand machen. die lösung steht ja oben. haste das ausprobiert? funktioniert es? kommt ne andere meldung?
und nutz mal delphi tags in deinen posts und überleg dir was wirklich wichtig ist um dein problem zu verstehen. denn dazu brauch man keine 20 image deklarationen...
ansonsten:
Crashkurs Delphi
und
Delphi Source

und ps: wenn morgen abgabetermin ist hätteste vielleicht mal etwas schneller machen sollen und nicht auf den letzten drücker hier dein programm hochladen

_________________
"Kein dummes Gerede. Kein Rumrätseln. Denkt an nichts anderes mehr, nur noch an das, was vor euch liegt. Das ist die wahre Herausforderung. Ihr müßt euch vor euch selbst schützen, Leute." (Rennes in "Cube")
Beiträge: >700

Kaeawc · Beiträge: 41

Also bei mir haben die oben genannten Lösungsvorschläge nicht funktioniert, kann aber auch wie oben gesagt daran liegen das ich irgendwo einen Fehler beim einfügen gemacht habe da ich nicht grade gut in Delphi bin.
Und zum anderen wir haben heute erst die aufgabe bekommen es zu bauen. Ich will ja nur das jemand diese 1 variable zum laufen bringt ist ja nichts großes sondern nur ein winzig kleiner button :S

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Also ich habs mir mal angesehen, und ich weiß nicht was nicht funktionieren soll.. dieses if Memo1.... bedeutet, dass wenn eine Zeile darin Steht soll ein Bild erscheinen.. was mich daran auch noch wundert is warum benutzt du memos?!

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Kaeawc · Beiträge: 41

Ich würde gerne Editfenster benutzen aber dann hänge ich leider an folgender Stelle:

Zitat:

procedure TForm1.Button2Click(Sender: TObject);
begin
IF edit1.text:=1 THEN Image8.visible:=true
end;

Fehlernachricht die anschliessend kommt:

Zitat:

[Fehler] Unit1.pas(111): Inkompatible Typen: 'String' und 'Integer'

Help pls

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Da ich nicht weiß was daraus genau werden sollte (z.B. das 1 Bild irgendwie nur unsichtbar war) hab ich mal paar sachen geändert und die Memos durch Edit-Felder ersetzt.. (hab die namen trotzdem auf memo gelassen weil ich code nicht umschreiben wollte) und auch paar images gelöscht

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Kaeawc · Beiträge: 41

Oh man.. VIELEN Dank :-)

Genau das wollte ich haben

)
Der Tag ist gerettet ^^

Noch 2 letzte "nervende" Fragen:
Wie kann ich die Würfel auf 2 erhöhen? Bisher geht das Programm ja davon aus das nur mit einem Würfel "gewürfelt" wird.

2. Frage: Wie kann ich die Ergebnisse aus Edit 1 in Prozent darstellen?

Big THX nochmal Born-to-Frag

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Zu 1: Versteh nicht ganz was du meinst.. Wenn du das so machen willst kannst du ja Einfach ein 2. Editfeld machen wo man die anzahl der Würfel reinschreibt und dann wenn man z.B. schreibt 2 würfel, 4 würfe dann lässt du einfach 8 durchgänge machen.

z.B.: anzahl := StrToFloat(E_AnzahlWuerfel.Text) * StrToFloat(E_Durchgaenge.Text); // oder wie du die editfelder genannt hast

Zu 2: Du meinst wieder von allen Zahlen? Also z.B. 0% 1Auge 10% 2Augen 50% 3Augen u.s.w?

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Kaeawc · Beiträge: 41

Sobald man auf "würfeln!" gedrückt hat erscheint ja neben den linken Würfeln eine Zahl. Ich will das angezeigt wird wieviel Prozent dieses Auge von den gesamten Augen ist.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

z.B. kannste ja noch editfelder nebendran setzen. dann rechnest du 100 / die anzahl der du gewürfelthast * die anzahl der gewürfelten fürs 1.Auge u.s.w.

z.B.:

markieren

Delphi-Quelltext

1:	einAugeProz.Text := FloatToStr(100 / anzahl * StrToFloat(Edit1.Text) + '%' // nur fürs aussehen ;));

greetz

/EDIT: Kannst auch noch die eigenschaften wieder auf ReadOnly stellen, kommt immer gut

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

retnyg · Verfasst: Di 15.11.05 23:40

Kaeawc hat folgendes geschrieben:

Ich würde gerne Editfenster benutzen aber dann hänge ich leider an folgender Stelle:

Zitat:

procedure TForm1.Button2Click(Sender: TObject);
begin
IF edit1.text:=1 THEN Image8.visible:=true
end;

Fehlernachricht die anschliessend kommt:

Zitat:

[Fehler] Unit1.pas(111): Inkompatible Typen: 'String' und 'Integer'

Help pls

guck mal scharf: inkompatibel: string und integer.
edit1.text ist ein string, und 1 eine zahl
'1' ist ein string.

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

Amateur · Verfasst: Mi 16.11.05 19:29

:= ist ein zuweisungsoperator. zum vergleich = nehmen

_________________
"Kein dummes Gerede. Kein Rumrätseln. Denkt an nichts anderes mehr, nur noch an das, was vor euch liegt. Das ist die wahre Herausforderung. Ihr müßt euch vor euch selbst schützen, Leute." (Rennes in "Cube")
Beiträge: >700

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme