Fehler beim Programmieren

[Binary]

Hallo Zusammen!

Mir sind beim Programmieren Fehler :wall: unterlaufen :cheers: , ich füge euch auch noch ein Bild vom Programm rein, hier der qeulltext:

Code:

procedure Tf_such.b_erzeugeClick(Sender: TObject);
i : integer;
begin
 randomize;
 For i : 1 to 100 do
     begin
     zahlenfeld[i,0] := random(500)
     sg_suche.cells[i-1] := StrToInt(zahlenfeld[i]);
    end;

procedure Tf_such.b_normsucheClick(Sender: TObject);
var
date, ergebnis : integer;
begin
     date := StrToInt(e_gesucht.text)
     ergebnis := suche(date);
     If ergebnis < -1
        then e_pos.text := IntToStr(ergebnis)
        else e_pos.text := Nicht gefunden;
end;

[BluesKid]

Moin moin,

wo, wie wenn, was geht denn nicht?

Fehlermeldungen?

Vorneweg aber mal zwei Hinweise:

1.) Randomize nur ein mal aufrufen und nicht bei jedem Buttonclick. Besser ins onCreate deines Forms.
2.) Strings in einfache Anführungszeichen


schönen Gruß
Sam

[Jelly]

1. Was ist der Fehler. Kriegs du ne Exception, oder rechnet er falsch. Was wird eigentlich gerechnet rsp. gesucht.
2. Was ist die Funktion "Suche". Da steckt doch wohl das Wesentlich drin.

Wir sind hier keine Hellseher :???:

[Binary]

ich kopier euch einfach mal den gesamten quelltext das porb. is das ich es noch nich in delphi geschrieben habe, mache das hier mit mehreren Leuten hat bisher noch keiner ins Delphi übertragen,

Delphi-Quellcode:

var
  f_lotto: Tf_lotto;
  lotto, zufall: array[1..6] of integer;
  urne: array [1..49] of integer;

implementation

{$R *.DFM}



procedure Tf_lotto.b_endClick(Sender: TObject);
begin
     close;
end;

procedure Tf_lotto.b_lottoClick(Sender: TObject);
var       i,j, zufallszahl, tausche :integer;


begin
     lotto [1] := sp_1.value;
     lotto [2] := sp_2.value;
     lotto [3] := sp_3.value;
     lotto [4] := sp_4.value;
     lotto [5] := sp_5.value;
     lotto [6] := sp_6.value;

     for i:= 1 to 6 do

         begin
         repeat
         zufallszahl:=random (49)+1;
         until urne[zufallszahl]>0;
         urne[zufallszahl]:=0;
         zufall[i]:=zufallszahl;
         end;



     for i:= 1 to 6 do

         begin
              for j := 1 to 6 -i do
                  begin
                       if zufall [j] > zufall [j+1]
                          then
                              begin
                                   tausche := zufall[j];
                                   zufall[j] := zufall[j+1];
                                   zufall[j+1] := tausche;
                              end;
                  end;
        

         end;


         for i:= 0 to 5 do

            sg_lotto.cells[i,0]:=IntToStr(zufall[i+1]);


end;

procedure Tf_lotto.b_urneClick(Sender: TObject);

var i:integer;

begin
     for i:= 1 to 49 do
        urne[i]:=i;
end;

procedure Tf_lotto.Beenden1Click(Sender: TObject);
begin
     close;
end;

procedure Tf_lotto.FormCreate(Sender: TObject);
var
i:integer;
begin


         for i:=1 to 49 do
         urne [i]:=i;

end;

procedure Tf_lotto.b_neuClick(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 5 do
    sg_lotto.cells[i,0]:='';

for i:=1 to 49 do
    urne[i]:=i;


end;

procedure Tf_lotto.e_auswertenClick(Sender: TObject);
          var i,j:integer;
          richtige:integer;
begin

     richtige:=0;

     for i:=0 to 6 do
         begin
             for j:=1 to 6 do
             begin
                  if lotto[i]=zufall[j]
                      then richtige:=richtige+1;
         end;
         end;
         e_ausgabe.text:= 'Sie haben ' + inttostr (richtige)+ ' Richtige';
         end;


end.

[Jelly]

Damit können wir immer noch nix mit anfangen. In welchem Zusammenhand steht denn deine zuerst geposteter Code mit dem aus vorigem Beitrag. Was soll das Programm denn eigentlich berechnen. Wenn du denkst, daß wir hier für dich die Umschreibarbeit übernehmen, da muss ich dich enttäuschen. :cry:

[Binary]

nene, pass auf, also der erste code sind paar ausschnitte vom gesamten, der andere is der komplette,

wollt ihr die aufgaben auch noch?

b) Korrigieren Sie den Quelltext:
- Beim Programmieren der Funktion suche Prozedur b_erzeugeClick haben sich 7 Fehler, bei der Programmierung von b_normsucheClick haben sich 3 Fehler eingeschlichen. Finden und korrigieren Sie die Fehler.
- Die Prozedur b_sortiereClick soll die Zahlen in dem Array Zahlenfeld sortieren. Obwohl es beim Kompilieren keine Fehlermeldung gibt, behauptet eine Schülerin, dass die Prozedur nicht das Gewünschte leistet. Stimmt das?

[BluesKid]

klick

[Jelly]

Zitat:

Zitat von Binary

nene, pass auf, also der erste code sind paar ausschnitte vom gesamten, der andere is der komplette

Das kann ich in den Codeschnippsel aber nicht erkennen.

Zitat:

Zitat von Binary

Korrigieren Sie den Quelltext:
- Beim Programmieren der Funktion suche Prozedur b_erzeugeClick haben sich 7 Fehler, bei der Programmierung von b_normsucheClick haben sich 3 Fehler eingeschlichen. Finden und korrigieren Sie die Fehler.
- Die Prozedur b_sortiereClick soll die Zahlen in dem Array Zahlenfeld sortieren. Obwohl es beim Kompilieren keine Fehlermeldung gibt, behauptet eine Schülerin, dass die Prozedur nicht das Gewünschte leistet. Stimmt das?

Siehe ein 2 Beiträge höher. Wir sind nicht hier um deine Hausaufgaben zu machen. Entweder du wirst jetzt konkreter, was dein Problem ist, oder ich brech für meinen Teil die Diskussion hier ab.

[Binary]

sry ich glaube ich nerv euch, ich habe jetzt selber alles geschafft, sitze gerade in Informatik, machen Gruppenarbeit, trotzdem Danke für eure Hilfe! :-D

[sakura]

Ändere bitte mal den Titel, da der aktuelle keine inhaltliche Aussage liefert ;)

...:cat:...