Problem mit Listbox in einem 2. Formular

[HackBot]

Möchte einen Schüler den ich in Formblatt 2 eintrage in der Listbox in Formblatt 1 haben

Kann mir jemand sagen wo mein Fehler liegt

danke!!

Delphi-Quellcode:

type  schuelertyp = record
                nachname  : string[50];
                vorname   : string[15];
                Klasse    : string[12];
                Steuer    : string[30];
                end;
const text1 = ' Anzahl der Objekte :  '  ;
      text2 = ' ausgewähltes Objekt Nr. :  ' ;

var
  Form2: TForm2;
  schueler          : schuelertyp;
  f                 : file of schuelertyp;
  steuer1,lei       : real       ;
  schuelerzahl      : integer    ;
  schuelerdaten     : string ;
implementation

uses Unit1;

{$R *.dfm}
  // Hinzufügen der String's ins Listenfeld //
procedure TForm2.bbtn_eingabemaske_addClick(Sender: TObject);
var        i   :  integer;
begin
  if edit_name.Text <> '' then
    begin
    end
else
      showmessage (' Bitte einen Namen eintragen !');
      edit_name.SetFocus;
    end;

    begin
if edit_vorname.Text <> '' then
    begin
    end
else
      showmessage (' Bitte einen Vornamen eintragen !');
      edit_vorname.SetFocus;
    end;
if edit_klasse.Text <> '' then
    begin
    end
else
      showmessage (' Bitte einen Klasse eintragen !');
      edit_Klasse.SetFocus;
    end;

    schueler.nachname := edit_name.Text;
     schueler.vorname := edit_vorname.text;
    schueler.Klasse := edit_klasse.Text;
    for i := 1 to 20-length(schueler.nachname)do
    begin
      schueler.nachname := schueler.nachname + ' ';
    end;
    schuelerdaten := schueler.nachname + schueler.vorname +'   '+
    schueler.Klasse +'    ';
    Form1.lst_schueler.Items.Add (schuelerdaten );
    schuelerzahl := schuelerzahl+1;
    Form1.Statuszeile.Panels.Items[0].text := text1+inttostr(schuelerzahl);
    seek(f,filesize(f));
    write(f,schueler);
  end

end;
end;

Habe auch Bilder Dabei und die Exe vom Programm

[thkerkmann]

Hi,

also ich hab dein Programm getestet, und es trägt den string in die Listbox ein, aber danach gibt es einen Fehler.
Ich denke dein Statusbar hat keine Panels, sondern ist auf simpel eingestellt.
Da solltest Du mal nachsehen.

Gruss

[HackBot]

Hi Thomas,

danke für die schnelle Hilfe



habe die Statusbar nochmal überarbeitet aber bekommen jetzt einen fehler beim edit feld!!! Kann das Programm nicht starten!!

habe mal das bild eingefügt

[quendolineDD]

Dann noch was zu deinen leeren if-Abfragen. Wenn du = anstatt <> (gleich anstatt ungleich) abfragst, kannst du den ELSE-Teil weglassen.

Oder soll da nochwas in die begin-end-Blöcke hineinkommen?
Kann es sein, das ein Editfeld eventuell garnicht edit_vorname heißt?

[HackBot]

Hi Lars

Doch das edit Feld heißt edit_vorname

Die if-Abfragen sind nur dafür da das, dass feld nicht leer bleibt also keine weitere Aufgabe

Kannst du mir mal zeigen wie ich es besser schreiben kann??

Habe noch nicht soviel erfahrung in Delphi :gruebel:

Gruß

Martin

[HackBot]

OK Progamm startet wieder bekomme jetzt einen E/A Fehler

Habe Das geändert:

Delphi-Quellcode:

 // Hinzufügen der String's ins Listenfeld //
procedure TForm2.bbtn_eingabemaske_addClick(Sender: TObject);
var        i   :  integer;
begin
  if edit_name.Text = '' then
    begin

      showmessage (' Bitte einen Namen eintragen !');
      edit_name.SetFocus;
    end;

    begin
if edit_vorname.Text = '' then
    begin
      showmessage (' Bitte einen Vornamen eintragen !');
      edit_vorname.SetFocus;
    end;
if edit_klasse.Text = '' then
    begin

      showmessage (' Bitte einen Klasse eintragen !');
      edit_Klasse.SetFocus;
    end;

[thkerkmann]

Hi,

anscheinend ist die Datei in die du schreiben willst nicht geöffnet.
Du könntest dein Programm ja mal in der IDE ausführen, die würde dir auch die Stelle zeigen, wo der Fehler auftritt
und eventuell könntest du dann schon selber sehen was falsch ist.
Nicht dass wir dir hier nicht helfen wollen, aber ein wenig musst du auch dazu tun.

Gruss

[HackBot]

Hi Thomas

also habe den fehler gefunden lag an daran das keine Datei geöffnet war!!! :thumb:

werd mal weitermachen :wink:

bis dann

Martin