Entwickler-Ecke :: Thema anzeigen - Fehler wegen Listbox

mcbrunox - Mo 02.09.02 10:42
Titel: Fehler wegen Listbox

Wieso erhalte ich hier eine Fehlermeldung ?

Quelltext

1:
2:
3:
4:
5:
6:
7:

var s:string;
     i:integer;
begin
...
  s:=Listbox1.items[i];  
...
end;

mcbrunox - Mo 02.09.02 10:56

i hat 0
und die meldung

Quelltext

1:	Operator oder Semikolon erwartet

Klabautermann - Mo 02.09.02 11:18

Hallo,

dann hast du wahrscheinlich in die Zeihle über der als Fehlerhaft angezeigten nicht mit ; angeschlossen. Wo genau kann ich nicht sagen da du nur so einen kleinen Code Schnipzel gepostet hast.

Gruß
Klabautermann

mcbrunox - Mo 02.09.02 11:23

das ist der code

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function Textupdate(tex:string):string;
var t:text;
    s,s2:string;
    i,i2:integer;
begin
  assignfile(t,'interpreten.ini');reset(t);
  i:=0;
  repeat
    readln(t,s);
    repeat
      inc(i);
      s:=Listbox2.items[i];
    until i>=listbox2.items.count;
  until eof(t);
  closefile(t);
end;

Klabautermann - Mo 02.09.02 13:18

Hallo,

insgesmmt finde ich da drei Fehler..

1. Du verwendest nie Listbox2.items[0], da das Inc(i) vor den verarbeiten von Listbox2.Intems kommt.

2. Dein Programm verursacht einen Laufzeitfehler wenn die Listbox nur ein oder sogar garkein Element enthällt.

3. Deine Funktion liefert keinen Wert zurück. Das wird der Grund für deine Fehlermeldung sein. Wenn du keinen Wert zurückgeben willst dann musst du eine procedure Verwenden. Ansonsten Fehlt eine Zeile aller Result := Ergebnis;

Desweiteren kann ich nicht erkennen was diese Funktion sinvolles machen soll.

Gruß
Klabautermann

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!