witam,
mam wielką prośbę - mam do napisania program w Delphi, a nie za bardzo wiem jak to zrobić.
Treść polecenia:
Zaprojektuj aplikację tworzącą spis liczb, liter i cyfr występujących w wybranym pliku tekstowym.
Interfejs programu powinien posiadać menu, w którym będą przyciski do:
*wyjścia z programu
*otwarcia okna z info o autorze i programie (wizytówka)
*otwarcia okna wyboru pliku tekstowego
*otwarcia pliku ze spisem liczb i liter(dane zapisz w tabelach)
*otwarcie okna wydruku.
W oknie z indeksami, indeksy powinny być wyświetlane alfabetycznie.
W oknie wydruku trzeba umieścić przycisk wydruku spisu i przycisk anulowania wydruku. Kod źródłowy musi być podzielony na sekcje.
Prezentacja programu odbywa się przy klasie. Kryteria oceny: pomysł, wykonanie, objaśnienie kodu źródłowego.
moje źródła to :
/////////////////////////////////////////////////////////////////////////////////////////////
program ascii;
uses crt;
var
a:integer;
b:char;
begin
clrscr;
writeln('Podaj cyfre kodu ASCII');
read(a);
writeln('Numer ',a,' w tabeli kodow ASCII to ',char(a));
if a>97 then writeln('Podales litere');
if a<97 then writeln('Nie podales litery');
readln;
readln;
end.
program ascii;
uses crt;
var
a:integer;
b:char;
znak:integer;
begin
clrscr;
writeln('Wprowadz jakis znak');
read(b);
znak:=ord(b);
writeln('Znak ',b,' w tabeli ASCII ma numer ',znak);
if ((znak>=97) and (znak<=122)) then writeln('Podales mala litere');
if ((znak>=65) and (znak<=90)) then writeln('Podales duza litere')
else writeln('Nie podales litery');
writeln('Podaj cyfre kodu ASCII');
read(a);
writeln('Numer ',a,' w tabeli kodow ASCII to ',char(a));
if ((a>=97) and (a<=122)) then writeln('Podales mala litere');
if ((a>=65) and (a<=90)) then writeln('Podales duza litere')
else writeln('Nie podales litery');
readln;
readln;
end.
if ((znak>=97) and (znak<=122)) then writeln('Podales mala litere')
else
begin
if ((znak>=65) and (znak<=90)) then writeln('Podales duza litere')
else writeln('Nie podales litery');
end;
pytania :
jak napiać algorytm sprawdzający czy znak jest literą ,cyfrą lub znakiem specjalnym
jak zapisać wynik do pliku txt
jak wyświetlić go w tabeli na ekranie
jak wczytać dokument tekstowy do memo
czy może lepiej zamiast tabel użyć tego
załącznik :