Record, auslesen, I/O 131

[zecke]

mm ich probiere gerade (mit record) einen datensatz zu lesen und das dazugehörige programm auszuführen. das ergebnis beim record sollte die pfadangabe sein, welche gespeichert wird mit name und platz.

dies ist die prozedur um den pfad per combobox auszuführen. man klickt auf den eintrag in der liste und das programm wird gestartet. problem ist, wenn ich einen programmpfad starte bekomme ich einen i/o error 131

da ich nicht viel ahnung von records habe, weiß ich nicht woran es liegt und meine suche zu dem error hat nicht wirklich was ergeben => ich weiß also nicht mal was mir der error genau sagt

hoffe mir kann jemand helfen. (hab ein comment eingefügt an der stelle wo das problem auftritt)

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var    n : tName;
       i : integer;
       a : string;
       gefunden : boolean;
       Daten : tDatensatz;
begin
if not IndexDa then
    exit;
n:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
i:=0;
gefunden:=false;
while not gefunden and (i<=drin) do
    begin
    gefunden:=Indexfeld[i].Name = n;
if not gefunden then
       i:=i+1;
end;
if not gefunden then
    Showmessage('Dieser Eintrag existiert nicht!')
else
begin
   ReSet(Datei);
   Seek(Datei,Indexfeld[i].Platz); //hier kommt das problem bzw. bleibt er hier stehen mit dem tollen error
   Read(Datei,Daten);
   CloseFile(Datei);
   a:=Daten.Pfad;
   WinExec('a', sw_shownormal);
end;
end;

falls ihr noch angaben braucht, nur her damit, weiß nicht was ihr wissen müsst um mir zu helfen

gute nacht, meine augen schmerzen schon nach einigem rumgetippse...

ps: hoffe das passt hier in die sparte

[Luckie]

Ächtz. Kannst du den Quellcode mal etwas formatieren, damit man das auch lesen kann?

[Christian Seehase]

Moin Zecke,

Fehlercode 131 besagt, dass Du versuchst vor den Anfang der Datei zu positionieren (ERROR_NEGATIVE_SEEK)
Gehe doch mal im Einzelschritt durch und schau Dir den Inhalt von Indexfeld[i].Platz an.

[zecke]

entschuldige Luckie, ich gehöre zu denjenigen, denen die Enter-Taste als Formatierung reicht aber ich werde versuchen es übersichtlicher zu gestalten!

Danke für die Erklärung, schaue mir das gleich mal an

[zecke]

Problem gelöst

Habe anstatt "Indexfeld[i].Platz:=i;" dummerweise "Indexfeld[i].Platz:=-1;" gehabt. Warum auch immer

Danke für die Hilfe

[Luckie]

Zitat von zecke:

entschuldige Luckie, ich gehöre zu denjenigen, denen die Enter-Taste als Formatierung reicht

Zitat von zecke:

Habe anstatt "Indexfeld[i].Platz:=i;" dummerweise "Indexfeld[i].Platz:=-1;" gehabt. Warum auch immer

Eventuell doch mal besser formatieren, dann sieht man sowas auch eher.

[Khabarakh]

[OT]Vorher fand ich es lesbarer *g*. [/OT]