kompilator fpc 1.0.10 do Pascala

[Radar28 1357]

Problem wygląda następująco:

Aby uogólnieć pewne funkcje w programie (tym samym skrócić go znacznie) potrzebuję funkcji GetXY (lub jakiejś o analogicznym działaniu) - bez tego będę musiał ostro kombinować. Problem polega na tym, że o ile w znalezionych dokumentacjach kompilatora fpc widnieje funkcja GetXY w module crt, ale kompilator tejże funkcji w ogóle nie rozpoznaje! Podobnie z funkcjami GetX i GetY. Jeśli by ktoś wiedział jak można ominąć ten problem, to byłbym bardzo wdzięczny. Jakbym pisał pod Windowsy, nie byłoby problemu (jakoś nie mogę polubić linuksa, choć TeX mnie np. pozytywnie zadziwił - choć TeX jest właściwie niezależny od platformy, więc się nie liczy )

 

Kompilator na serwerze to jak w temacie fpc 1.0.10

[januzi 24]

http://www.cncware.com/ncrt.html

moze to ?

[Radar28 1357]

http://www.cncware.com/ncrt.html

moze to ?

<{POST_SNAPBACK}>

Hmm... gdyby to był mój własny komputer, to mógłbym dograć odpowiednie dodatki, ale ja muszę niestety pracować na serwerze uczelnianym - raczej muszę się borykać z tym co mam

 

Niestety nie mamy nCrt - sprawdziłem.

[januzi 24]

curses ?

[Radar28 1357]

curses ?

<{POST_SNAPBACK}>

że jak?

Możesz jaśniej napisać, bo aż tak oblatany to ja nie jestem niestety.

[januzi 24]

dobra, za jakies 20 minut bedzie sciagniete i skomplikowane to powiem czy da sie

[Radar28 1357]

dobra, za jakies 20 minut bedzie sciagniete i skomplikowane to powiem czy da sie

<{POST_SNAPBACK}>

Że też tobie się chce

 

[januzi 24]

uses graph ;

 

getx, gety - zwraca polozenie w x i y (integer), oczywiscie tryb graficzny

 

 

wyglada na to, ze crt wystepuje pelny w wersji dos/windows natomiast pod linuksem nie ma dostepu do getxy

 

moze http://community.freepascal.org:10000/bboard/ cos podpowie ?

[Radar28 1357]

uses graph ;

 

getx, gety - zwraca polozenie w x i y (integer), oczywiscie tryb graficzny

wyglada na to, ze crt wystepuje pelny w wersji dos/windows natomiast pod linuksem nie ma dostepu do getxy

 

moze http://community.freepascal.org:10000/bboard/ cos podpowie ?

<{POST_SNAPBACK}>

Heh, modułu graph próbowałem. Program się kompiluje, ale potem przy uruchamianiu się wykwasza dość konkretnie, bo nie może się do jakichś bibliotek dostać. Forum przejrzę, może coś znajdę na temat. Najwyżej znajdę jakieś mniej eleganckie obejście problemu. Tak czy siak dzięki za poświęcony czas i takie tam

[januzi 24]

a koniecznie musisz pobierac zawartosc spod podanego miejsca ?

dopuszczalne rozwiazanie:

tab : array[ 0 .. 79, 0 .. 24 ] of char ;

podmienic writeln i write na funkcje ktore beda modyfikowac tab, showall ktory przepisze zawartosc tabeli na ekran

(uwaga, 80.25 powoduje przy zwyklym crt przejscie do nastepnej linii, pod winda napisalem swoj ktory wylaczal to zachowanie)

[Radar28 1357]

Mój program to generalnie relacyjna baza danych, a uogólnić chciałem funkcję wczytywania, żeby uprościć kod programu.

 

Cały wic polega na tym, że właśnie nie korzystam w sposób bepośredni z funkcji read lub readln. Zamiast ze stringów (nie tych co to je nosił Pinokio ) korzystam z tablic znaków (na stringach raczej nie napisałbym dobrych procedur wyszukujących np. tytułów na literę "a" - przynajmniej nie w Pascalu). W tej sytuacji sczytuję wpisywane wyrażenia znak po znaku. Jest oczywiście uwzględniona możliwość kasowania znaków - tu właśnie muszę wiedzieć gdzie tak właściwie trzeba przesunąć kursor (usunięcie znaku z tablicy jest raczej oczywiste i proste). W tej sytuacji użycie GetXY narzuca się samo. Mam już przygotowany plan awaryjny - po prostu do funkcji wczytywania dodam dwa parametry od położenia na ekranie, ale to nie wygląda aż tak elegancko. W użyciu nie jest to na szczęście bardzo uciążliwe.

 

Przy bazie danych często trzeba coś wczytać i to w różnych miejscach i sytuacjach, więc wypadałoby raczej porządnie napisać procedurę wczytywania różnych rzeczy.

 

Tak czy siak dziękuje za poświęcony cenny czas

 

W sumie miewałem dziwniejsze problemy wcześniej, ale udało mi się je jakoś obejść:

np. czasem program omijał instrukcję read (lub readln - czasem mogłem ich użyć) nawet jeśli wykonywałem program krok po kroku w Borland Pascalu - nigdy się chyba nie dowiem dlaczego W końcu zrobiłem tak, że powtarzał tak długo polecenie read, aż zwrócił niezerowy wynik - o dziwo działa gładko i bez zacięć

[xpablox 1]

wherex/wherey sprawdzales? jest w CRT (przynajmniej w ftp dla dosa/windowsa).

 

A tu jeszcze kawalek mojej procedury do wczytywania/edycji ciagow. Pisane pod TP6.0

 

PROCEDURE CzytajStr1 (Var Nazwa:String; Len:Byte; Var OK:Boolean; Edycja:Boolean);
VAR
 X,Y,I : Byte;
 Ch    : Char;
 Wpis  : String;
BEGIN
 CurOn;
 If Edycja Then
   Wpis:=Nazwa
 Else
   Wpis:='';
 GotoXY(1+Length(Wpis),1);
 OK:=True;
 Repeat
   Ch:=ReadKey;
   X:=WhereX;
   Y:=WhereY;
   If (Ch=Back) And (Length(Wpis)>0) Then
     BEGIN
       GotoXY(X-1,Y);
       Write(' ');
       GotoXY(X-1,Y);
       I:=Ord(Wpis[0]);
       Dec(I);
       Wpis[0]:=Chr(I)
     END;
   If (Ch in Ch30) And (Length(Wpis)<Len) Then
     BEGIN
       Wpis:=Wpis+Ch;
       Write(Ch)
     END;
 Until (Ch=Enter) Or (Ch=Esc);
 If Ch=Enter Then Nazwa:=Wpis
   Else OK:=False;
 CurOff
END;

 

Jakbys chcial to moge udostepnic cala baze (obsluga plikow, listy na wskaznikach, wyszukiwanie w bazie, wyswietlanie w tabelce itp). Pisane tak jak powyzsze, w TP6

[Radar28 1357]

Jakbys chcial to moge udostepnic cala baze (obsluga plikow, listy na wskaznikach, wyszukiwanie w bazie, wyswietlanie w tabelce itp). Pisane tak jak powyzsze, w TP6

<{POST_SNAPBACK}>

Ale ja tą bazę już mam napisaną Chodziło tylko o uładzenie kodu programu (i pozbycie się tych fragmentów, które nie działają pod linuxem - np. obsługa myszki). Już w tej chwili z ponad 1000 linii udało mi się zrobić 750. WhereX/WhereY nie sprawdzałem, więc może warto będzie spróbować.