Kann nichts in ListBox schreiben

Becks16 · Beiträge: 405

hallo

ich kann nix in meine listbox schreiben aber warum nicht

das ist der code

Quelltext

1:	ListBox1.Items.Add('f_haupt.ds_genre,[genre]');

mfg

_________________
Ich bin Dumm und weiss nichts :-)

Ehemaliges Mitglied Erhaltene Danke: 1

Wird es nicht eingetragen? Syntaktisch ist es korrekt. Wird die Zeile ausgeführt bzw. überhaupt eincompiliert (siehst du an dem blauen Punkt neben der Zeile)?

Becks16 · Beiträge: 405

ja also es wird compiliert der blaue punkt ist da .... und ich kann nix rein schreiben in der listbox wenn ich das programm gestartet habe..

mfg

_________________
Ich bin Dumm und weiss nichts :-)

Ehemaliges Mitglied Erhaltene Danke: 1

Wird die Zeile auch ausgeführt? Steht sie eventuell in einem if-Zweig, der neu ausgeführt wird? Zeig doch mal etwas Code drumrum.

Becks16 · Beiträge: 405

mehr code habe ich nicht vieleicht fehtl da ja noch etwas und deswegen geht es nicht ...

mfg

_________________
Ich bin Dumm und weiss nichts :-)

Ehemaliges Mitglied Erhaltene Danke: 1

Wie, 'mehr Code hast du nicht'? Ist das alles, was im OnCreate der Form steht oder wie? Psote mal die ganze Unit oder häng sie an, wenn sie länger ist.

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

Wie Möchtest du in die Listbox Schreiben (per Cursor) oder items hinzufügen per Klick ?

Becks16 · Beiträge: 405

hier die unit ist noch nicht sehr viel ....

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:

unit Unit7;

interface

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

type
  Tf_stammdaten = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    ListBox1: TListBox;
    procedure ListBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  f_stammdaten: Tf_stammdaten;

implementation

{$R *.dfm}

procedure Tf_stammdaten.ListBox1Click(Sender: TObject);
begin
ListBox1.Items.Add('f_haupt.ds_genre,[genre]');
end;

end.

ich möchte in jeder zeite ein genre hinzufügen das heißt ich klicke in die erste zeile und dann muss da ein cursor sein damit ich was eintragen kann

mfg

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

_________________
Ich bin Dumm und weiss nichts :-)

Ehemaliges Mitglied Erhaltene Danke: 1

Das geht nicht. Items einer Listbox kann man nicht editieren und nicht vorhandene schon gar nicht. Nimm ein Edit und eine Schaltfläche zum Eintragen des Inhaltes der Editbox in die Listbox.

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Luckie hat folgendes geschrieben:

Items einer Listbox kann man nicht editieren

Seit wann oder warum das nicht? Ist
Form1.ListBox1.Items[0]:='Hallo'+Form1.ListBox1.Items[0]; bei dir kein editieren eines Eintrages?

Ehemaliges Mitglied Erhaltene Danke: 1

Aber nicht in dem Sinne, wie er es versteht, das man auf einen Item in die Listbox klickt und man den Eitrag dort direkt editieren kann. Die Listbox hat keinen Edit-Modus.

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Ich hatte den Kommentar von Becks16 überlesen :oops:

. Da muss er dann den Eintrag in einen Edit auslesen, dann dort bearbeiten lassen und dann wieder einlesen. Direktes editieren funktioniert allerdings bei einer ListBox nicht, wenn du es aber so in der Art machen willst, musst du Memos nehmen. In Memos kann man reinschreiben :wink:

.

Becks16 · Beiträge: 405

ok ich danke euch ich habe es jetzt so gemacht

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:
70:
71:

unit Unit7;

interface

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

type
  Tf_stammdaten = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Button1: TButton;
    edit_genre: TEdit;
    ListBox1: TListBox;

    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    
  public
    { Public-Deklarationen }
  end;

var
  f_stammdaten: Tf_stammdaten;

implementation

uses Unit1;

{$R *.dfm}




procedure Tf_stammdaten.Button1Click(Sender: TObject);
begin

    f_haupt.qu_genre.Append;

    f_haupt.qu_genre.FieldByName('genre').AsString := edit_genre.Text;
    f_haupt.qu_genre.Post;
    f_haupt.qu_genre.Close;
    f_haupt.qu_genre.Open;





edit_genre.Text:=f_haupt.qu_genre.fieldbyname('genre').AsString;

edit_genre.Clear;
end;



procedure Tf_stammdaten.FormShow(Sender: TObject);
var i: integer;
begin
f_haupt.qu_genre.Open;
f_haupt.qu_genre.First;
for i:=0 to f_haupt.qu_genre.recordcount-1 do begin
ListBox1.Items.Add(f_haupt.qu_genre.fieldbyname('genre').AsString);
f_haupt.qu_genre.Next;
end;
end;
end.

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

_________________
Ich bin Dumm und weiss nichts :-)

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

Alles klar aber... (Du denks't zu kompliziert solch einen Code für das...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme