Forum: Multimedia
Delphi
by Meflin,
23. Mär 2009
Gratulation, und wiedermal wurde solange dumm nachgefragt, bis jemand die kopierfähige Lösung präsentiert :roll:
Forum: Multimedia
Delphi
by Meflin,
23. Mär 2009
var
Form1: TForm1;
ergebnis : Integer;
implementation
{$R *.DFM}
function TForm1.WorteInZeile(Sender: TObject): integer;
var n : integer;
Forum: Multimedia
Delphi
by Meflin,
23. Mär 2009
Im übrigen hast du noch ganz andere Fehler drin: Deine Schleifen laufen alle 1 zu weit (du fängst bei Null zu zählen an, das letzte Element ist als n - 1 und nich n) und außerdem verwendest du die Variable n im selben Kontext für zwei verschiedene Sachen. Das kann nicht gutgehen.
Forum: Multimedia
Delphi
by Meflin,
23. Mär 2009
WorteInZeile soll die Wörter in einer Zeile zählen. Du übergibst aber nirgends den Parameter, welche Zeile denn gezählt werden soll.
Außerdem solltest du das als function und nicht als procedure implementieren :roll:
Und drittens ist das:
keine Fehlerbeschreibung :roll: