loadfromfile schlägt fehl - zu lager Dateiname?

[pascalts]

Hallo!

Ich möchte den Inhalt einer TXT-Datei auslesen und weiter verarbeiten. Ich habe dazu folgendes geschrieben

Code: Alles auswählen

SLO:=TStringList.Create;
              //SLO.LoadFromFile(SelectDirectoryDialogStammverzeichnis.FileName + '\' + robotername + '.de.txt');
              SLO.LoadFromFile(SelectDirectoryDialogAusgabe.FileName + '\Temp\' + lbROBOTERLISTE.Items[i] + '\C\KRC\Roboter\Init\RefListe.txt'); 
              SLR:=TStringList.Create;
              For l:=0 to SLO.Count-1 do
               begin
                if  (SLO[l][1]='E') and (length(SLO[l])>2) then ShowMessage(SLO[l]); //SLR.Add(SLO[l]); //HIER
               end;
              wstr:=SLR.Text;
              varBookmark := varDokument.Bookmarks.Item('ListEingang');
              varBookmark.Range.Text := wstr;
              SLR.Free;
              SLO.Free;       

Mein Programmbricht immer in Zeile "//HIER" ab:


Deswegen habe ich mir "SelectDirectoryDialogAusgabe.FileName + '\Temp\' + lbROBOTERLISTE.Items[i] + '\C\KRC\Roboter\Init\RefListe.txt'" mal per showmessage ausgeben lassen... und siehe da, der Pfad (ich bin unter Windows) wird nicht vollständig angezeigt Mittendrin sind einfach 3 Punkte...

Klar also, dass nichts ausgelesen wird... Aber wie kann ich dafür sorgen, dass ich den vollen Pfad übernommen bekomme?

Grüße Pascal

[baumina]

Das liegt nicht am Dateinamen sondern am showmessage. Windows bastelt da ab einer gewissen Länge automatisch die 3 Punkte ein.

Du greifst ohne abzufragen ob SLO[l] eine Länge von mindestens einem Zeichen hat auf das erste Zeichen zu. Bei einer Leerzeile krachts deswegen.

[corpsman]

Er prüft schon, nur meiner Meinung nach in der Falschen Reihenfolge

Code: Alles auswählen

 
if   (length(SLO[l])>2) and (SLO[l][1]='E')  then ShowMessage(SLO[l]); //SLR.Add(SLO[l]); //HIER
 

müsste das heisen