maly lecz duzy problem w TP

0

witajcie mam maly problem ktorego nie moge przeskoczyc
pisze miniprogram do obslugi hurtowni i mam problemy z funkcjami graficznymi
i czy ktos ma chwile by poswiecic by rzucic okiem na kod i zobaczyc co mozna pozmieniac ulepszyc by to wlaczyc i odpalic ?
za wszelaka pomoc bede bardzo zobowiazany i postaram sie jakos odwdzieczyc
serdecznie pozdrawiam

p.s.
wysle kody zrodlowe i jak ktos ma chec pooglada i zobaczy podpowie co zmienic co ulepszyc ?
bede bardzo wdzeiczny za wszelaka pomoc :-)

0

czemu nie wrzuciłeś go tu <ort>Od razu</ort>?

0

juz daje go

http://fhotowww.republika.pl/bet_hurt.pas
http://fhotowww.republika.pl/czytaj.pas

pliki nie spakowane, pas

albo wszystko razem spakowane z plikami windos,strings,graph,czytaj oraz prog gl hurt_bet.pas

http://fhotowww.republika.pl/hurt.rar

zobacz moze cos wypatrzysz ?
dzieki pzdr

0
Repeat
     Write('Usunac dane z pliku ?(T)ak /(N)ie: ');
     Read(wybrany_klawisz);
             Until Wybrany_klawisz in['T','t','N','n'];
             If wybrany_klawisz in['N','n'] Then
        Nowy_plik:=false;

Ten kawałek kodu możesz skrócić tym szablonem:

Repeat
     Write('Usunac dane z pliku ?(T)ak /(N)ie: ');
     Read(wybrany_klawisz);
             Until Wybrany_klawisz in[UpCase('n'), UpCase('t')];
             If wybrany_klawisz in[UpCase('n')] Then
        Nowy_plik:=false;

Tutaj po prostu zmieniłem 'n', 'N' na UpCase('n'). Funkcja ta powoduje, że litera, wpisana w Chara będzie wielką literą (czyli tylko mała litera zmieni się na wielką, a wielka się nie zmieni). Jeśli by było źle to looknij se do Helpa, bo dawno nie pisałem w Pascalu [cygaro]

0

witaj hehe a kto zna c++ bo wszystko napisane jest od nowa TP byl za duzym bledem
bo mam prbolem taki
ze podczas usuwania danych on pyta sie o potwierdzenie usuniecia
t - tak usun
n - nie usuwaj
lecz niestety nie wazne co sie wcisnie on anuluje usuwanie

jest ktos komu moglbym podeslac to i by zobaczyl jak to wyglada ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1