Ĺadny brzuch
Załóżmy, że mam trzy zmienne:
var Pozycja1: integer; Pozycja2: integer; Wyraz: string; begin Pozycja1:=8; Pozycja2:=9; Memo1.Lines[0]:='Damian to jest fajny gość.'; end;
Co trzeba zrobić by zmienna "Wyraz" miała wartość "to" czyli litery od 8 do 9.
Użytkownik Capellini edytował ten post 05 kwiecień 2006, 16:46
procedure TForm1.Button1Click(Sender: TObject); var Pozycja1: integer; Pozycja2: integer; Wyraz: string; begin Pozycja1:=8; Pozycja2:=9; Memo1.Lines[0]:='Damian to jest fajny gość.'; Wyraz := Copy(Memo1.Lines[0], Pozycja1, Pozycja2 - Pozycja1 + 1); end;
Napisałeś 2 razy "Pozycja1:=" :)
A to sorry. Ale nie znasz przypadkiem odpowiedzi na pytanie jakie zadałem albo jak np. sprawdzić jaka litera jest 9.
A to sorry. Ale nie znasz przypadkiem odpowiedzi na pytanie jakie zadałem albo jak np. sprawdzić jaka litera jest 9.
przeciez podal ci odpowiedzi...
Sorry, nie zauważyłem :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var Pozycja1: integer; Pozycja2: integer; Wyraz: string; begin Pozycja1:=8; Pozycja2:=9; Memo1.Lines[0]:='Damian to jest fajny gość.'; end;
Co trzeba zrobić by zmienna "Wyraz" miała wartość "to" czyli litery od 8 do 9.
Użytkownik Capellini edytował ten post 05 kwiecień 2006, 16:46
procedure TForm1.Button1Click(Sender: TObject); var Pozycja1: integer; Pozycja2: integer; Wyraz: string; begin Pozycja1:=8; Pozycja2:=9; Memo1.Lines[0]:='Damian to jest fajny gość.'; Wyraz := Copy(Memo1.Lines[0], Pozycja1, Pozycja2 - Pozycja1 + 1); end;
Napisałeś 2 razy "Pozycja1:=" :)
A to sorry. Ale nie znasz przypadkiem odpowiedzi na pytanie jakie zadałem albo jak np. sprawdzić jaka litera jest 9.
A to sorry. Ale nie znasz przypadkiem odpowiedzi na pytanie jakie zadałem albo jak np. sprawdzić jaka litera jest 9.
przeciez podal ci odpowiedzi...
Sorry, nie zauważyłem :)