[ Passwd @ 25.06.2005. 18:15 ] @
Evo, ovakav je format:

hh:mm:ss


E sad kako ucitati
hh-kao varijablu a
mm-kao varijablu b
ss-kao varijablu c

Znaci:
writeln('Upisite vrijeme:');
readln(a,b,c);

Kako napravit da je jedna varijabla sve do znaka ":" ,onda slijedi druga do drugog znaka ":" te na kraju treca?????
[ Nemanja Avramović @ 25.06.2005. 21:42 ] @
koristi POS da nadjes poziciju : u stringu a COPY da kopiras deo stringa


rtfm
[ cassey @ 25.06.2005. 21:51 ] @
Da, mozes da koristic komande za manipulaciju stringovima, ali je tu pipavo oko pos jer neznas koje od dve ":" ce ti on data. Pa, onda ti je mnogo jednostavnije da ucitavas char po char i ukoliko je cifra praviz broj a oko su : predjes na sledeci broj...
[ Passwd @ 25.06.2005. 21:56 ] @
Hahaha
Pa pokazite mi to na kodu
Pa mozda i shvatim
[ Nemanja Avramović @ 25.06.2005. 22:28 ] @
dao sam ti na pm, ali evo mozda neko potrazi.
radjeno je u delphiju jer nemam TP ovde, ali valjda ce raditi

potrebno 4 edita i jedan button; u edit1 uneti "hh:mm:ss"

Code:
procedure TForm1.Button1Click(Sender: TObject);
var z:integer;
    tekst:string;
begin
tekst:=Edit1.Text;
z:=pos(':',tekst);
Edit2.Text:=copy(tekst,1,z-1);
Delete(tekst,1,z);

z:=pos(':',tekst);
Edit3.Text:=copy(tekst,1,z-1);
Delete(tekst,1,z);

Edit4.Text:=tekst;

end;
[ Nemanja Avramović @ 25.06.2005. 22:36 ] @
u krajnjem slucaju, ako ti je bash hh:mm:ss (dva slova : dva slova : dva slova) mozes da uzmes:

Code:
tekst := 'hh:mm:ss';
varijabla_1 := tekst[1]+tekst[2];
varijabla_2 := tekst[4]+tekst[5];
varijabla_3 := tekst[7]+tekst[8];