Witam mam taki problem,
przesyłam adres stringa do procedury, string ma 8 znaków i później jest wykorzystywany do zapisania go treścią z polecenia Input.
Gdy polecenia nie były realizowane w procedurze to wszystko dzialalo ok.
A teraz wpisujac moge podac tylko jedna literke podczas gdy string powinien miec 8 znakow. Probowalem zmieniac cos w deklaracji, dopisywać *8 itp. ale nic nie pomogło.
Być może nieprawidłowo to robię.
W wywołaniu funkcji występuje zmienna string (jej adres), zmienna jest zadeklarowana jako string*8.
Napomnę, że zadeklarowane mam tablice stringów (8 stringów po 8 znaków)
(To jest ostatni listing, który testowałem, i zostawiłem różnice w declare i w sub dotyczącą string*8)
Reasumując problem jest taki, że jak wywołję procedurę i wpisuję nazwe, to moge wpisac tylko 1 znak a nie 8.
przesyłam adres stringa do procedury, string ma 8 znaków i później jest wykorzystywany do zapisania go treścią z polecenia Input.
Gdy polecenia nie były realizowane w procedurze to wszystko dzialalo ok.
A teraz wpisujac moge podac tylko jedna literke podczas gdy string powinien miec 8 znakow. Probowalem zmieniac cos w deklaracji, dopisywać *8 itp. ale nic nie pomogło.
Być może nieprawidłowo to robię.
W wywołaniu funkcji występuje zmienna string (jej adres), zmienna jest zadeklarowana jako string*8.
Napomnę, że zadeklarowane mam tablice stringów (8 stringów po 8 znaków)
(To jest ostatni listing, który testowałem, i zostawiłem różnice w declare i w sub dotyczącą string*8)
Reasumując problem jest taki, że jak wywołję procedurę i wpisuję nazwe, to moge wpisac tylko 1 znak a nie 8.
Declare Sub Konf(byval K As Byte , Typ As Byte , Nazwa_cz As String , Rodzaj_cz As Byte , Typ_cz As Byte)
....
Dim Nazwa_cz_sa(8) As String * 8 , Nazwa_cz(8) As String * 1 , Dim Nazwa_cz_a(8) As String * 8,........
......
do
....
Call Konf(k , A , Nazwa_cz_a(k) , Rodzaj_cz_a(k) , Typ_cz_a)
......
loop
......
Sub Konf(byval K As Byte , Typ As Byte , Nazwa_cz As String *8 , Rodzaj_cz As Byte , Typ_cz As Byte)
....
Input "Podaj nazwe cz, max. 8 znakow: " , Nazwa_cz(k)
.....
End If
End Sub