Hallo,
die bei D7 mitgelieferte TStrings-Implementierung ist wenig intelligent, was white space betrifft. Steuerdateien unterziehe ich deshalb oft einer Normalisierung:
Delphi-Quellcode:
procedure TrimNameValueStrings(s: TStrings);
var
i, iPos: Integer;
begin
for i := 0 to Pred(s.Count) do
begin
iPos := AnsiPos(s.NameValueSeparator, s[i]);
if iPos > 0 then
s[i] := Trim(Copy(s[i], 1, Pred(iPos)))
+ s.NameValueSeparator
+ Trim(Copy(s[i], Succ(iPos), MaxInt));
end;
end;
Wer eine neuere Implementierung einsetzt, der prüfe ob die Funktionalität in dieser Hinsicht erweitert wurde.
Grüße vom marabu