Znak funta

Witam!

Mam pytanko, jak wyświetlić znak funta w aplikacji konsolowej w Delphi 7? smile.gif

Pozdrawiam.

print("£")

Po pierwsze pomyliłeś języki, po drugie tego znaku nie da się wpisać/wkleić w edytorze Delphi 7.
I od razu mówię, że #163 wyświeta u z '

Mi Ruby mówi, że £ to 194

nie, 194 to mi wyświetla takie "T" zmniejszone :)

Nie da się.

somekind napisał(a)

Nie da się.

Można jakieś zdanie potwierdzenia tezy?

Nie da się.

da się,

procedure writepound;
var oldcp:word;
begin
  oldcp:=GetConsoleOutputCP;
  SetConsoleOutputCP(437);
  write(#156);
  SetConsoleOutputCP(oldcp);
end;

pod jednym warunkiem: okno konsoli musi być ustawione na czcionkę TTF (np. Lucida Console albo Consolas). Nie zadziała gdy wybrana jest opcja „czcionka rastrowa”).