Napisałem sobie taką oto funkcje na konwersje ISO 8859-2. No i oczywiście <font color="red">Acces Violation</span>... :-8 :-8
[code]function Iso(s: string): string;
var
i,n:integer;
begin
for i:=1 to Length(s) do
begin
case s[i] of
'ą' : Result[i] := '±';
'ś' : Result[i] := '¶';
'ź' : Result[i] := 'Ľ';
'Ą' : Result[i] := 'ˇ';
'Ś' : Result[i] := '¦';
'Ź' : Result[i] := '¬';
else
Result[i] := s[i];
end;
end;
n := pos('Windows-1250', result);
if n = 0 then n := pos(UpperCase('Windows-1250'), UpperCase(result));
if n = 0 then n := pos(LowerCase('Windows-1250'), LowerCase(result));
if n 0 then
begin
delete(s,n-1,(n+11)-(n+1));
insert('iso-8859-2',s,n-1);
end;
end;[/code]
???