Fehler wegen Listbox

mcbrunox · Beiträge: 92

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;

Klabautermann · Verfasst: Mo 02.09.02 10:54

Hallo,

welche Fehlermeldung und welchen Wert hat i?

Gruß
Klabautermann

mcbrunox · Beiträge: 92

i hat 0
und die meldung

markieren

Quelltext

1:	Operator oder Semikolon erwartet

Klabautermann · Verfasst: 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 · Beiträge: 92

das ist der code

markieren

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 · Verfasst: 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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme