case anweisung(memo.lines[])

Flepe · Beiträge: 25

hi habe versucht in einer case anweisung dem memofeld je zeile etwas zuzuweisen bekam jedoch den fehler
Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

markieren

Delphi-Quelltext

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

           case cbo_auswahl.itemindex of
                0:memo.Lines[0]:='Benedikt Weber studierte Kommunikationsfachwirtschaft und begann in den 90er Jahren'+
                  memo.Lines[1]:='mehrere Kinder- und Jugendsendungen zu moderieren. Viele Zuschaern ist vor allem'+
                  memo.Lines[2]:='durch die Bastelsendung Art Attack bekannt.';
                1:cbo_sprecher.visible:=false;
                2:Button1.visible:=flase;
                3:memo.Visible:=false;
           end;

der fehler ligt in zeile 4
wo liegt der fehler???

Xentar · Verfasst: Sa 05.12.09 15:10

Auch bei case gilt: Willst du mehrere Befehle durchführen, musst du diese mit begin und end umschließen.
Außerdem: Was soll denn das + am Ende? Entweder, du weist jede Zeile einzeln zu, oder du weist die Eigenschaft .Text zu, und hängst die Strings mit + aneinander.

_________________
PROGRAMMER: A device for converting coffee into software.

platzwart · Verfasst: Sa 05.12.09 15:12

markieren

Delphi-Quelltext

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

           case cbo_auswahl.itemindex of
                0:begin
                   memo.Lines.Add('Benedikt Weber studierte Kommunikationsfachwirtschaft und begann in den 90er Jahren');
                   memo.Lines.Add('mehrere Kinder- und Jugendsendungen zu moderieren. Viele Zuschaern ist vor allem');
                   memo.Lines.Add('durch die Bastelsendung Art Attack bekannt.');
                  end;
                1:cbo_sprecher.visible:=false;
                2:Button1.visible:=flase;
                3:memo.Visible:=false;
           end;

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Flepe · Beiträge: 25

danke durch die zweite antwort hebt sich die erste auf nun hab ich aber ne andere frage un zwar in meinem programm soll die erste combo box bei der zweiten einen eintrag hinzufügen und dann jenachdem was bei der zweiten ausgewählt ist verschiedenen text ins memofeld schreiben.
er zeigt den text aber erst an wenn man nachdem man im 2 combobox [0] ausgewählt hat im erten [0] nochmal auswählt
hoffe hr versteht mich
schaut eudh den ganzen quelltext mal an

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:

unit synchronsprecher_u;

interface

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

type
  TForm1 = class(TForm)
    cbo_sprecher: TComboBox;
    cbo_Auswahl: TComboBox;
    memo: TMemo;
    Button1: TButton;
    procedure cbo_sprecherChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cbo_sprecherChange(Sender: TObject);


begin
      cbo_auswahl.visible:=true;
      if cbo_sprecher.ItemIndex=0 then
      begin
           cbo_auswahl.Items.Append('moderierte Sendungen');
           case cbo_auswahl.itemindex of
                0:memo.Lines.Add('Benedikt Weber studierte Kommunikationsfachwirtschaft und begann in den 90er Jahren mehrere Kinder- und Jugendsendungen zu moderieren. Viele Zuschaern ist vor allem durch die Bastelsendung Art Attack bekannt');

           end;
      end
      else
      begin
      end;

end;

end.

platzwart · Verfasst: Sa 05.12.09 15:32

Neue Frage -> neuer Thread. Bitte markiere diesen Thread als gelöst und erstelle einen neuen.

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme