Pomoc s programováním v Lazarusu

[liborn]

Ahoj,potřeboval bych pomoct při programování v Lazarusu

[Reklama]

[Orcus]

Ahoj, potřebuji pomoci s opravou auta. Co chceš opravovat, co nejde....

► Zobrazit spoiler

Prostě se rozepiš.

[556996324]

http://lmgtfy.com/?q=lazarus+navod
to 3.

[liborn]

No já bych potřeboval už jenom maličkost,jinak to mám udělaný.Akorát bych potřeboval poradit jak udělat v účetníctvýí aby se mi zobrazobaly jména podle abecedy

--- Doplnění předchozího příspěvku (12 Pro 2011 21:17) ---

Ahoj, potřebuji pomoci s opravou auta. Co chceš opravovat, co nejde....

► Zobrazit spoiler

Prostě se rozepiš.

No já bych potřeboval už jenom maličkost,jinak to mám udělaný.Akorát bych potřeboval poradit jak udělat v účetníctvýí aby se mi zobrazobaly jména podle abecedy

Posílám jak to mám,zdali tam nemám chybu:
program project1;

type UkZam=^zamestnanec;
zamestnanec= record
jmeno:string;
plat:integer;
cislo:integer;
dalsi:UkZam;
end;
var zacatek,konec:UkZam;
c:char;

procedure pridejNaKonec;
var p:UkZam;
begin
writeln('Zadej jmeno');
readln(konec^.jmeno);
writeln('zadej plat');
readln(konec^.plat);
writeln('zadej cislo');
readln(konec^.cislo);
new(p);
konec^.dalsi:=p;
konec:=p;

end;
procedure vypis;
var p:UkZam;
begin
p:=zacatek;
while p<>konec do
begin
writeln(p^.jmeno,',',p^.plat,',',p^.cislo);
p:=p^.dalsi;
end;
end;
procedure vypisPrvek (p:UkZam);

begin
writeln('Jmeno:',p^.jmeno,',plat:',p^.plat,'cislo:',p^.cislo);
end;

function hledejZamestnance:UkZam;
var s:string;
p:UkZam;
begin
result:=konec;
writeln('zadej hledane jmeno');
readln(s);
p:=zacatek;
while p <> konec do
begin
if p^.jmeno=s then
begin
vypisPrvek(p);
result:=p;
end;
p:=p^.dalsi;
end;
if result=konec then writeln('Jmeno nenalezeno');
end;
procedure pridejNaZacatek;
var p:UkZam ;
begin
new(p);
writeln('zadej jmeno');
readln(p^.jmeno);
writeln('zadej plat');
readln(p^.plat);
writeln('zadej cislo');
readln(p^.cislo);
p^.dalsi:=zacatek;
zacatek:=p;
end;


function hledej:UkZam;
var s:integer;
p:UkZam;
begin
result:=konec;
writeln('zadej hledane cislo');
readln(s);
p:=zacatek;
while p <> konec do
begin
if p^.cislo=s then
begin
vypisPrvek(p);
result:=p;
end;
p:=p^.dalsi;
end;
if result=konec then writeln('Cislo nenalezeno');
end;

procedure najdiDleCisla;
var p:UkZam;
begin
p:=hledej;
if p=konec then writeln('Nenalezeno')

end;

procedure smazZadanyPrvek;
var p,q:UkZam;
begin
p:=hledejZamestnance;
if p=konec then writeln('Nemazu, nic jsem nenasel')
else
begin
q:=p^.dalsi;
if q<>konec then
begin
p^.jmeno:=q^.jmeno;
p^.plat:=q^.plat;
p^.cislo:=q^.cislo;
p^.dalsi:=q^.dalsi;
dispose(q);
end
else
begin
p:=konec;
dispose(q);
end;
end;
end;

procedure pridejZa;
var p,q:UkZam;
begin
p:=hledejZamestnance;
if p=konec then writeln('Nepridavam,nic jsem nenasel')
else
begin
new(q);
writeln('Zadej jmeno');
readln(q^.jmeno);
writeln('zadej plat');
readln(q^.plat);
writeln('Zadej cislo');
readln(q^.cislo);
q^.dalsi:=p^.dalsi;
p^.dalsi:=q;
end;
end;
procedure smazPrvni;
var p:UkZam;
begin
if zacatek<>konec then
begin
p:=zacatek;
zacatek:=zacatek^.dalsi;
dispose(p);
end;
end;

procedure smazSeznam;
begin
while zacatek<>konec do smazPrvni;
end;

begin
new(zacatek);
konec:=zacatek;
while true do
begin
writeln ('Zadej:');
writeln('q:konec');
writeln('p:pridej na zacatek');
writeln('o:pridej na konec');
writeln('u:pridej za dany prvek');
writeln('v:vypis');
writeln('s:smaz dany prvek');
writeln('e:smaz cely seznam');
writeln('h:hledej zamestnance');
writeln('n:najdi dle cisla');
readln(c);
case c of
'q': break;
'p':pridejNaZacatek;
'o':pridejNaKonec;
'u':pridejZa;
'v':vypis;
's':smazZadanyPrvek;
'e':smazSeznam;
'h':hledejZamestnance;
'n':najdiDleCisla

end;
end;
end.

[faraon]

A co ten seznam seřadit?