ich glaub ich ändere das thema auf "Hilfe mein lazarus macht Fehler wo gar keine sind!!!!"
Umgekehrt wird ein Schuh daraus, "Lazarus zeigt Deine Fehler an"
was sagt bitte der fehler aus:
wahrscheinlich hat eine Liste nur drei Einträge undDer Listenindex steht auf 3 (4.Eintrag, da die Zählung bei Null startet.)
Und wenn Du schon ExtractFilePath und Konsorten nicht willst, dann versuche doch wenigstens deine Routinen etwas einfacher zu strukturieren!
Delphi-Quellcode:
if length(Irgendeinstring)>0 then
if Irgedeinstring[length(Irgendeinstring)]='\' then
und diese Zugriffe auf
Form1.EineKomponente.Text sind auch nicht das Gelbe vom Ei. So etwas übergibt man als Parameter.
Gruß
K-H