On a par exemple la ligne :
Code: Select all
SetField(fieldOriginalTitle, Value);
on peut la changer en :
Code: Select all
SetField(fieldOriginalTitle, RemoveArticle(Value));
(et de même pour les autres lignes modifiant les titres originaux & traduits)
Il faut alors ajouter une fonction RemoveArticle. Par exemple juste avant "function FindLine..." qui se trouve au début du fichier :
Code: Select all
function RemoveArticle(Value: string): string;
begin
if Pos('The ', Value) = 1 then
Result := Copy(Value, 5, Length(Value)) + ', The'
else
if Pos('Un ', Value) = 1 then
Result := Copy(Value, 4, Length(Value)) + ', Un'
else
if Pos('Une ', Value) = 1 then
Result := Copy(Value, 5, Length(Value)) + ', Une'
else
Result := Value;
end;
etc. (on peut en ajouter encore d'autres avant le else final)