W FAQ znajduje się przykład na funkcję IntToStr tak by nie trzeba
było korzystać tej z SysUtils. Problem w tym, że przykład ten u mnie
nie chodzi. Pojawia się "Illegal character in input file: '' $A0"
w siedmiu miejscach począwszy od try a skończywszy na end.
Funkcja orginalna oczywiście działa bez zarzutu. Co tu zrobić???
Popełniłeś chyba jakiś błąd przy przenoszeniu kodu. $A0 (czyli 160) to kod non-breaking space, który nie jest dozwolony w Delphi. Zmień na zwykłą spację
Popełniłeś chyba jakiś błąd przy przenoszeniu kodu. $A0 (czyli 160)
to kod non-breaking space, który nie jest dozwolony w Delphi. Zmień na
zwykłą spację
Jak, co, gdzie?? Bo coś nie jarzę.
Oto ten kod:
function IntToStr(Value: Integer): String;
var Str: array[0..255] of char;
begin
wvsprintf(Str, '%d', @Value); //
A jak przenosiłeś: jak ja zaznaczyłem w Faq i wkleiłem do Delphi to sie skompilowało OK.
Jak nie pomoże, to spróbuj skasować i wstawic na nowo wszystkie spacje w "błędnych" linijkach kodu.
Skopiowałem jak się patrzy i wkleiłem. I dalej nic, ciągle to samo
w tych samych miejscach.
Nie wiem, skąd Ci sie to bierze, u mnie jest OK. Usuń spacje i wpisz jeszcze raz, albo przepisz ręcznie kod.
I pamiętaj że te spacje mogą być również na końcu linijki (za średnikiem)
pierawsza linia zawiera spacje (160) ni poczętku i na końcu
a druga ma spacje (32)
sleep(1) ;
sleep(1) ;
Ja tam też nie wiem, co u ciebie nie działa. U mnie pięknie śmiga.
A jeżeli już tak bardzo nie chcesz SysUtils używać to weź procedurkę z asm: http://4programmers.net/view_faq.php?id=286
a nie lepiej o ile zadziala
function IntToStr(Num : Integer) : String;
begin
Str(Num, result);
end;
OK. Przepisałem wszystko ręcznie i teraz działa. Dzięki za pomoc.