Delphi

Delphi (35 Beiträge, 19 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi ihr!

Wir haben in der Schule in Delphi ein kleines Programm machen müßen, es gibt da aber etwas, wobei ich mich nicht auskenne, ich hoffe von euch kann mir einer helfen!

Also, ich habe da ein StrinGrid mit 4Spalten und 6 Reihen, ich kann nun in ein editfenster die Namen von Teilnehmern schreiben und wenn ich auf den OK Butten klicke, dann soll der in eine Spalte geschrieben werden und bei nächsten mal ins nächste usw. bis dahin hab ich es, dann gibt es einen Button wenn ich auf den klicken dann sollen alle Teilnehmer angezeigt werden in einer Listbox (auch kein Problem) und jetzt kommt das Problem:
Der der als erstes in einer Reihe ist, ist der Teamführer, wie kann ich jetzt in einer anderen Listbox nur die Teamführer anzeigen lassen?

Soll ich den Quellcode aufschreiben?
auf jedenfall hier könnt ihr euch das Programm als zip file downloaden.
Zum Programm
Ich hoffe es kann mir wer weiterhelfen, danke!

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Ich schreib jetzt mal den Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ListBox1: TListBox;
    Button5: TButton;
    ListBox2: TListBox;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  x,y:integer;
  s:array[1..24] of integer;
implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
label1.visible:=false;
button1.visible:=false;
button2.visible:=false;
edit1.visible:=false;
button3.visible:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
button3.visible:=false;
button1.visible:=true;
button2.visible:=true;
label1.visible:=true;
edit1.visible:=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
listbox2.visible:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
listbox1.visible:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
const x:integer=0;
      y:integer=0;

begin
listbox1.items.add(edit1.text);
StringGrid1.cells[x,y]:=(edit1.text);
x:=x+1;
if x=4
then
begin
y:=y+1; x:=0;
end;
edit1.text:='';
end;

end.

Vielleicht kann mir jetzt wer helfen?
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

ich glaub du musst noch etwas Geduld habe, es ist fast niemand im Forum - Samstag abend

lG
female

female

warum hilfst du ihm denn nicht ??

backflash

das überlasse ich den Experten

lG
female

female

danke für dein mitgefühl
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Welche Methoden bietet listbox1.items an? Vielleicht kann man eine dazu verwenden.

Shadows can be made real
if you kill in their name.

was meinst welche methoden es anbietet?
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Welche Methoden existieren in dem Objekt von dessen Typ listbox1.items ist?

Shadows can be made real
if you kill in their name.

keine ahung

kannst ma bitte sagn wie ich des rausfind, bin eine absolute 0 im programmiern, wie du grad mitbekommen hast...

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Klick auf das listbox1.items und drück' F1, Delphi sollt' Dir daraufhin ausspucken, welcher Objekttyp das items ist (dürft ein TStringList oder ähnliches sein). Da gibt's dann auch Methoden, und zwar 'nen Sack voll. Dann klickst auf die einzelnen Methoden, und eine davon wird Dir hoffentlich das erste, letzte, oder zumindest das n-te Element zurückgeben können.

Shadows can be made real
if you kill in their name.

Nö. Er hat ein StringGrid (array[0..3][0..5] of String) aus dem will er die Werte aus der ersten Spalte in der Listbox darstellen.

PS : IMO ist ListBox eine Visual StringList. (Ausser dass du so sachen wie Select und so machen kannst)

da gibts an haufen methoden...

bis jetzt hat ma no ka methode geholfen

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

das Programm geht schon, so wie ich es mir vorgestellt habe!
danke für deine mühe!
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

ListBox ist eben eine Liste. Da kannst dazuhängen, löschen, sortieren usw.

@Flip : Gin ein ListBox1. und drück dann Space+Return (oder wart einfach kurz)
Dann siehst du alle Methoden/Eigenschaften deines Objekts, die gerade passen. (Also wenn du was an eine String-Variable übergeben willst, dann zeigt er dir alle Funktionen und Attribute, die Strings zurückliefern)

...
for i := 0 to StringGrid1.RowCount - 1 do
ListBox2.Items.Add(StringGrid1.Cells[0, i]);
...

Das ist es doch?

Übrigens : Strukturier deinen Code ein bisserl (einrücken). Das erleichtert das Lesen ungemein.

geht leider nicht...

i kennt er nicht (habe y genommen)
und jetzt sagt er mir:
"FOR-Schleifenvariable muß eine einfache lokale variable sein"

kenn mich mit den FOR Schleifen leida net so gut, aus und weiß deshalb nicht was er damit meint

das mit dem einrücken werd ich mir merken, danke!

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Lange Fassung :

Procedure Weissichnicht.ButtonXClick
var
  i : integer;
Begin
  ListBox2.visible := true;
  for i := 0 to StringGrid1.RowCount - 1 do
    ListBox2.Items.Add(StringGrid1.Cells[0, i]);
End;

var i, a, b : integer;
for i := a to b do

In der for-Schleife durchläuft die Lauf-Variable (i) alle Werte von a bis b (beide inkludiert).

Jetzt addest du zu deiner ListBox zuerst die Zelle (0, 0), weil i = 0
Beim nächsten Durchlauf addest dann die Zelle (0, 1) usw

StringGrid.RowCount liefert die die Anzahl der Reihen des Grids
StringGrid.Cells[x, y] liefert dir den String, der im Grid in der x-ten Spalte und der y-ten Zeile steht.
Achtung: die Spalten beginnen bei 0 zu zählen. Deshalb läuft auch i von 0 bis RowCount-1 und nicht von 1 bis RowCount. (Cells(1,2) ist eigentlich 2.Spalte 3. Zeile)

Alles klar?

es geht!

danke!
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

warum habe ich für
"for i := 0 to StringGrid1.RowCount - 1 do"
da -1 und nicht 5?

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

for i := 0 to (StringGrid1.RowCount - 1) do

Besser?
RowCount liefert dir die Anzahl an Reihen (In deinem Fall 6)
Also Reihe 1,2,3,4,5 und 6. Nun sind die Reihen aber so numeriert : 0,1,2,3,4 und 5. Also fang ich schon bei 0 an, muss aber schon bei 5 (=RowCount-1) aufhören. (Mach aber genauso 6 Schritte)
Du hättest genauso gut for

i := 0 to 5 do

schreiben können. Wenn du dann aber dein Grid um eine Zeile vergrösserst, musst du dein ganzes Programm durchsuchen, ob du nicht irgendwo den Absolutwert geschrieben hast.

ok habs gschnallt!

danke
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

bin jetzt draufgekommen wie es ohne for to schleife geht:

if x=1
then
begin
listbox2.Items.add(edit1.text)
end;

geht auch *freu*
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

wo hast du das x her? Wieso edit1? Das Feld blendest doch aus, wenn du fertig bist, oder?
Post einmal die ganze Procedure, vielleicht versteh ichs nur falsch.

Meiner Meinung nach, wirst das nur schwer ohne for Schleife machen können.

es geht aber ohne for schleife

ich habe ja ein editfenster wo ich die namen reinschreiben kann, dann wenn ich auf den OK-Button klicke, werden diese ins StringGrid eingetragen...

hab in den OK button einfach die if abfrage dazugeschrieben und dann wenn ich auf den Button für die Teamführer gehe, lasse ich nur noch die Listbox einblenden(in der schon alles steht

)

x und y-Werte sind vom StringGrid für Spalten und Zeilen!

Der OK BUTTON:

procedure TForm1.Button1Click(Sender: TObject);
const x:integer=0;
y:integer=0;

begin

listbox1.items.add(edit1.text);
StringGrid1.cells[x,y]:=(edit1.text);
x:=x+1;
if x=4
then
begin
y:=y+1; x:=0;
end;
if x=1
then
begin
listbox2.Items.add(edit1.text)
end;
edit1.text:='';
end;

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

procedure TForm1.Button1Click(Sender: TObject);
const x:integer=0;
      y:integer=0;

begin

listbox1.items.add(edit1.text);
StringGrid1.cells[x,y]:=(edit1.text);
x:=x+1;

if x=4
then
  begin
   y:=y+1; x:=0;
  end;

if x=1
then
  begin
   listbox2.Items.add(edit1.text)
  end;

edit1.text:='';
end;

Hier etwas schöner eingrückt, ist es so wie du gemeint hast, von wegen bessere übersicht?

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Danke wegen dem Einrücken, aber es erleichtert das Lesen einfach dermassen. Ist bei so einem kleinen Programm nicht unbedingt notwendig, aber es ist gut zu lernen, bevor man grössere Sachen angeht.

Zum Prog :
Ablauf :

const x:integer=0;

x=0

y:integer=0;

y=0

listbox1.items.add(edit1.text);

Du fügst den Text aus dem Edit-Feld in die Listbox1.

StringGrid1.cells[x,y]:=(edit1.text);

Du schreibst den Text auch ins Grid(0,0)

x:=x+1;

x=1

if x=4 then

Die erste if-Schleife wird nicht ausgeführt (weil x =1)

   listbox2.Items.add(edit1.text)

Du hängst den Text auch in Listbox2 (Die 2. if-Schleife wird immer efüllt)

Bist du dir sicher, dass x und y innerhalb der Procedure definiert werden sollen (und immer wieder auf 0 zurückgesetzt werden)? Sollten die nicht global definiert werden?

Ansonsten :
Das Ding macht was anderes, als vorher. Er verteilt sofort die Leute. Vorher wars so, dass du nur das Grid gefüllt hast und dann die Daten aus dem Grid ausgelesen hast und in die Listboxen gefüllt.

Häng nach

edit1.text := '';

noch an

if y=5 then begin
  Button1.enabled := false;
end;

bidde bidde mitn einrückn, ich tu mir so auch um einiges leicht

>>if x=4 then
Die erste if-Schleife wird nicht ausgeführt (weil x =1)
listbox2.Items.add(edit1.text)
Du hängst den Text auch in Listbox2 (Die 2. if-Schleife wird immer efüllt)<<

Ich habe nur eine if Schleife in der es vom edit fenster in die Listbox eingetrgen wird!

Für die Listbox wo alle Teilnehmer angezeigt werden, habe ich keine if schleife, da habe ich für den OK-Button gleich nach dem begin hingeschrieben:

listbox1.items.add(edit1.text); Für die Listbox
StringGrid1.cells[x,y]:=(edit1.text) Fürs Grid

dann wird x weitergezählt

dann eine if Schleife für den Zeilenumbruch nach 4 einträgen:

und dann die if-Schleife
if x=4
then
begin
y:=y+1; x:=0;
end;

und dann die if-Schleife damit nur der 1. angezeigt wird

if x=1
then
begin
listbox2.Items.add(edit1.text)
end;

Das Programm funktioniert so bei mir *freu*

Es wird nur x auf 0 zurückgesetz und y immer eines dazu!
Warum sollte ich das nicht machen?
Was bringt mir dass wenn ich es global definiere und wie geht das? hab das no nie gehört

gute idee, für y=5!

danke!

Übrigens danke für dei ganze hilfe und dast dich mit mir herumplagst ist sicher nicht einfach

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

eine frage hab ich noch:

wir hätten dass irgendwie mit einem array machen müssen dass nicht mehr als 24

(da fällt mir ein, dann müßte es heißen :
if y=6 then begin
Button1.enabled := false;
end; )

einträge zustande kommen, wie kann ich das machen? ist doch so einfacher oder?

hab das array zwar bei den variablen zugeordnet...aber keine ahnung wie ich das jetzt verwende

so hab ich es:
var
s:array[1..24] of integer;

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

wohl eher
var s: array[1..24] of string;
Dann hast die ein arry mit 24 Textfeldern. Bei jedem Knopfdruck schreibst du ins
nächste Feld. Dazu kannst du deine x und y verwenden. (y gibt dir an, wieviele
Reihen du bereits geschrieben hast, x sagt dir, wieviele Einträge du schon in der
aktuellen Reihe gemacht hat.) Oder du verwendest noch eine zusätzliche Variable
(z) Die erhöhst du bei jden Knopfdruck um 1 und kontrollierst ob sie noch nicht
grösser als 24 ist. Dann kannst du den Wert ins entsprechende Array-Feld schreiben:

s[z] := Edit1.Text;

muß ich dass s nicht extra irgendwann mal bei einer procedur einführen?
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Wohl auch eher global. Dann können alle Proceduren darauf zugreifen (Genau wie x und y)
Wenn du es in einer Prozedur machst, verlierst du den Array jedesmal, wenn die
Prozedur fertig ist.

ok, danke!
_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Also so, wie du es angeschrieben hast, kann es meiner Meinung nach
nicht funktionieren.

Du hast 2 lokale Variablen x und y, die du beide mit 0 initialisierst.
(Und zwar jedewmal, wenn du den Button drückst)
Wenn x und y globale Variablen sind, dann funktioniert es so, wie du es
gemacht hast (Und wenn du das an deine Original-Prog nciht geändert hast, dann
passt das eh)

Folgende 2 Codeteile sind was vollkommen anderes

Code 1:

...
var x, y : integer; 
...
procedure MeineProzedur;
begin
  ...
end;
...
procedure NochEineProc;
begin
  ...
end;
...

Code 2:

...
procedure MeineProzedur;
var x, y = integer;
begin
   ...
end;
...
procedure NochEineProc;
begin
  ...
end;
...

Im zweiten Fall existieren x und y nur solange du die Prozedur ausführst.

NochEineProc

kann im zweiten Beispiel nicht auf x oder y zugreifen (weil die
nur in

MeineProzedur

existieren.)

Wenn du eine Variable innerhalb einer Prozedur definierst, dann heisst sie
lokale Variable, ansonsten ist sie eine globale.

ich hab vor dem begin des button klicks:

const x:integer=0;
y:integer=0;

also sind sie global oda?
und drum gehts...

_____________________________________________________________________________

Das ist unserer mehr oder weniger fertige
Maturapage

Liebe Grüße Flip

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung