try
for i := 0 to Ghosts.Count-1 do
begin
- AGhost.CommaText := Ghosts[i];
+ AGhost.Text := StringReplace(Ghosts[i], ',', #13#10, [rfReplaceAll]);
if AGhost.Count = 0 then
Continue;
if AGhost[0] <> 'GHOST' then
Continue;
- DefFileName := Dir + AGhost[3];
+ DefFileName := Dir + StringReplace(AGhost[3], '"', '', [rfReplaceAll]);
// \92è\8b`\83t\83@\83C\83\8b\82ð\93Ç\82Ý\8d\9e\82Þ
BmpFileName := LoadDefinitionFile(Ghost, Surface,
DefFileName, dum);