Wyciąganie 2 znaków na raz ze stringa

Jak ro zrobić, żeby ze stringa wyciągnąc dwa znkai, potem następne dwa itd.

np. 6575

żeby najpierw wyciągnął 65 potem 75.

pierwsze2znaki:=mojstring[1]+mojstring[2];
drugie2znaki:=mojstrng[3]+mojstring[4];

mozesz tez uzyc funkcji leftstr, rightstr i midstr z modulu StrUtils

stary, jak tylko w szkole zobaczyłem żulionerów, zainstalowałem ich w domu potem na www.ortalion.prv.pl. PS. na waszym forum looknij na nick Żulik-Ciulik. This is me! Mój namiar to: [email protected] i GG 3050083

Apropos Delphi:
Czy jest jakaś funkcja która rozpoznaje liczby parzyste i nie parzyste ??

Apropos Delphi:
Czy jest jakaś funkcja która rozpoznaje liczby parzyste i nie parzyste ??

function CzyParzysta(Liczba: Integer): Boolean;
begin
Result := Liczba mod 2 = 0;
end;

Czy jest jakaś funkcja która rozpoznaje liczby parzyste i nie parzyste ??

Odd + F1
A co do wyciągania co 2 znaki: Copy + F1

Wyciąganie znaków :

[code]var litery1, litery2, wyraz : String;
begin
wyraz := '1234';
litery1 := Copy(wyraz, 0, 2);
litery2 := Copy(wyraz, 2, 2);
end;
[/code]

Czy parzysta? Kodzik (może dziwny, ale...):

[code]
var liczba, znak : Integer; wyraz : String; parzysta : Boolean;
begin

wyraz := IntToStr(liczba);
znak := Length(wyraz) - 1;

if Copy(wyraz, znak, 1) = '0'
then parzysta := True
else if Copy(wyraz, znak, 1) = '2'
then parzysta := True
else if Copy(wyraz, znak, 1) = '4'
then parzysta := True
else if Copy(wyraz, znak, 1) = '6'
then parzysta := True
else if Copy(wyraz, znak, 1) = '8'
then parzysta := True
else
parzysta := False;

end;
[/code]

Czy parzysta? Kodzik (może dziwny, ale...):

[...]

Rzeczywiście... kod jest rozwalający... co za optymalizacja... :)

tia, jednak zdecydowałem się na użycie Odd(). Oczywiście po rozważeniu wielu za i przeciw Trepp'a :-)

na liczbe parzysta ja uzywam takiego kodu:

((liczba div 2)*2=liczba) then liczbaparzysta
else liczbanieparzysta.