Hallo,
ich habe eine Form1, auf der eine Listview ist. Mit einer Function die als public deklariert ist lassen sich die Werte auslesen. Das funktioniert allerdings nur, wenn ich aus Form1 auf die Listview zugreife. Versuche ich die Function über einen Button auf Form2 aufzurufen, bekomme ich eine Fehlermeldung. Kann mir jemand helfen? Hier mal der Quelltext:
Delphi-Quellcode:
public
{ Public-Deklarationen }
function oeffne_Tuerchen(Datum: word): TTuerchen; {TTuerchen = record
Bild,
Bildtext; string;
end;}
//...
implementation
function TVerwaltung.oeffne_Tuerchen(Datum: word): TTuerchen;
//gibt die Werte die in der Listview stehen zurück
var lauf,
Zeile: integer;
begin
Result.gefunden := false;
for lauf := 0 to lstvVerwaltung.Items.Count-1 do //<= hier wird die Zugriffsverletzung ausgegeben
begin
if lstvVerwaltung.Items.Item[lauf].Caption = inttostr(Datum)
then begin
Zeile := lauf;
Result.gefunden := true;
break;
end;
end;
if not Result.gefunden
then exit;
Result.Bild := lstvVerwaltung.Items.Item[Zeile].SubItems.Strings[0];
Result.Bildtext := lstvVerwaltung.Items.Item[Zeile].SubItems.Strings[1];
end;
TTuerchen ist ein record-Typ. Ich probiere nämlich gerade einen Adventskalender zu programmieren 8)
MfG
Christian