Ładny brzuch
Witam,
Fragment mojego programu wyglada mniej wiecej tak:
var c:char; s:string; j:integer; begin repeat begin c:=readkey; j:=ord©; if (j>47) and (j<58) then s:=s+c else begin if (j=8) then //jeli wcisniety jest backspace........wlasnie tutaj jest problem end; writeln(s) end; until c='='; end.
Tutaj pojawia si mj problem. Nie wiem jak usunc ostatni znak zmiennej string. Prosze o pomoc
String w elemencie 0 ma zapisan dugo. Zmniejsz j.
String w elemencie 0 ma zapisan dugo. Zmniejsz j.
Juz mialem odpisywac, ze s[0] jest dziwnym znakiem i nie mozna go zmniejszyc o 1 gdy wpadlem na to zeby napisac s[0]:=chr(ord(s[0])-1); i to zadzialalo. :D
Dziki za pomoc
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Fragment mojego programu wyglada mniej wiecej tak:
var c:char; s:string; j:integer; begin repeat begin c:=readkey; j:=ord©; if (j>47) and (j<58) then s:=s+c else begin if (j=8) then //jeli wcisniety jest backspace........wlasnie tutaj jest problem end; writeln(s) end; until c='='; end.
Tutaj pojawia si mj problem. Nie wiem jak usunc ostatni znak zmiennej string. Prosze o pomoc
String w elemencie 0 ma zapisan dugo. Zmniejsz j.
String w elemencie 0 ma zapisan dugo. Zmniejsz j.
Juz mialem odpisywac, ze s[0] jest dziwnym znakiem i nie mozna go zmniejszyc o 1 gdy wpadlem na to zeby napisac s[0]:=chr(ord(s[0])-1); i to zadzialalo. :D
Dziki za pomoc