Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - case anweisung(memo.lines[])
Flepe - Sa 05.12.09 15:04
Titel: case anweisung(memo.lines[])
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'
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 - 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.
platzwart - Sa 05.12.09 15:12
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; |
Flepe - Sa 05.12.09 15:19
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
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
public
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 - Sa 05.12.09 15:32
Neue Frage -> neuer Thread. Bitte markiere diesen Thread als gelöst und erstelle einen neuen.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!