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Í|qÀp}\^ €@ 7PUDKCVe4OE64UDv8LH9tfCgBaD @ StadiumY€d
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
.I7ƒLef5%(= <Down4}(=.<4 PressForward4M(M.M%3ÌGamesserverAnim4Y(Y.X4)X4y(I.H4ÀFullSpee0è^@0p LoopStart„,|l—È´RoadMainSlopeStrat¡ ' @0NTov
C@DDI @|Ð 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 angehängt, damit ihr sie euch mal angucken könnt!