Ich stelle mal den Code ein, den ich gebastelt habe. Kann mir jemand helfen????
Code: Alles auswählen
procedure TFMGruppen.LVGruppenClick(Sender: TObject);
var
LVAuswahl: string;
begin
//In der LV wurde ein Satz angeklickt.
//Datensatz aus Datei lesen; Editfelder füllen
if FMGruppen.LVGruppen.ItemIndex<>-1 then
begin
LVAuswahl:=FMGruppen.LVGruppen.Selected.Caption;
FileMode:=2;
AssignFile(GrpDatei,'Gruppen.rec');
ReWrite(GrpDatei);
repeat
read(GrpDatei,GrpSatz1);
until LVAuswahl=IntToStr(GrpSatz1.GrpNr)
end;
if EOF(GrpDatei)
then begin
FehlerCode:=3;
Fehlermeldung;
end
else begin
FMGruppen.EDTGrpNr.Text:=IntToStr(GrpSatz1.GrpKto);
FMGruppen.EDTGrpName.Text:=GrpSatz1.GrpName;
end;
end;