Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mr 2006
Ort: Waldbronn
4.303 Beitrge
 
Delphi 2009 Professional
 
#1

[TStringList] Problem mit einer Datei (bricht zu frh ab)

  Alt 16. Sep 2006, 19:57
Ich habe folgende Datei (aus dem Editor kopiert):

GBX BUCR 0 $  0 $) 0 $ 0 $ 0 $
   7PUDKCVe4OE64UDv8LH9tfCgBa @ Stadium  xZise
hjjghhgklk ? @ Day @ @ Nadeo   <header type="challenge" version="TMc.5" exever="0.1.7.5"><ident uid="7PUDKCVe4OE64UDv8LH9tfCgBa" name="hjjghhgklk" author="xZise"/><desc envir="Stadium" mood="Day" type="Race" nblaps="0" price="386" /><times bronze="-1" silver="-1" gold="-1" authortime="-1" authorscore="0"/><deps><dep file="Any\Advertisement\SignRight.bik"/><dep file="Any\Advertisement\SignUp.bik"/><dep file="Any\Advertisement\SignWarning.bik"/><dep file="Any\Advertisement\SignWrongWay.bik"/><dep file="Any\Advertisement\TMSmallExit.bik"/><dep file="Any\Advertisement\Dynamic Ad1.dds"/><dep file="Any\Advertisement\Dynamic Ad2.dds"/><dep file="Any\Advertisement\Dynamic Ad3.dds"/><dep file="Any\Advertisement\pfeil_links.bik"/><dep file="Any\Advertisement\SignLeft.bik"/><dep file="Any\Advertisement\SignDown.bik"/><dep file="Any\Advertisement\PressForward.bik"/><dep file="Any\Advertisement\GamesserverAnim.bik"/><dep file="Any\Advertisement\Gamesserver.dds"/><dep file="Any\Advertisement\FullSpeed.bik"/></deps></header> | 2 
0 $ ) 0 $ @ $ l  J O $h*  $)  -] ^ `l
 0 $PIKS?y P} )< J  m|qp}\^ @ 7PUDKCVe4OE64UDv8LH9tfCgBaD @ StadiumYd
xZise
ThjjghhgklkQ@cDayM$@xdNadeo T I a+` @(t PlatformWallPub2 ]@h  $ \1mP Any\Advertisement\SignRight.bii h
7S+@(@ *A7BUp45(4I +y!74Warning4I(H@,I"8HrongWay4M(Lh9 TMSmallExi5(HN*4 Dynamic Ad1.ddsp?,i(I t I24I
(HlU (34I (I .|,M( t Lpfeil_links41(I
.I7Lef5%(= <Down4}(=.<4 PressForward4M(M.M%3 GamesserverAnim4Y(Y.X4 )X4y(I.H4FullSpee0^@0p LoopStart,|lȴRoadMainSlopeStrat  ' @0NTov
C@DD I @| GrassClip 
? !0,"$ %\( &0 $


Aus dieser Datei wollte ich die Pfade herausfiltern:
<dep file="Any\Advertisement\SignRight.bik"/><dep file="Any\Advertisement\SignUp.bik"/><dep file="Any\Advertisement\SignWarning.bik"/><dep file="Any\Advertisement\SignWrongWay.bik"/><dep file="Any\Advertisement\TMSmallExit.bik"/><dep file="Any\Advertisement\Dynamic Ad1.dds"/><dep file="Any\Advertisement\Dynamic Ad2.dds"/><dep file="Any\Advertisement\Dynamic Ad3.dds"/><dep file="Any\Advertisement\pfeil_links.bik"/><dep file="Any\Advertisement\SignLeft.bik"/><dep file="Any\Advertisement\SignDown.bik"/><dep file="Any\Advertisement\PressForward.bik"/><dep file="Any\Advertisement\GamesserverAnim.bik"/><dep file="Any\Advertisement\Gamesserver.dds"/><dep file="Any\Advertisement\FullSpeed.bik"/>


Dazu habe ich mir folgenden Code geschrieben:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  slTrack : TStringList;
begin
  if odTrack.Execute then begin
    slTrack := TStringList.Create;
    slTrack.LoadFromFile(odTrack.FileName);
    {...}
  end;
end;
Ergebnis ist:
Zitat:
slTrack[0] = 'GBX'#6
slTrack[1] = Delphi exception EStringListError at $629F949
Ich habe die Datei mal angehngt, damit ihr sie euch mal angucken knnt!
Angehngte Dateien
Dateityp: zip hjjghhgklk.challenge_838.zip (1,2 KB, 0x aufgerufen)
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstrung abgewhnt mkinzler
  Mit Zitat antworten Zitat