Bude to asi prkotina, ale neví ani učitel :))) – Delphi – Fórum – Programujte.com

Taaakže, potřeboval bych poradit s podmínkou. Jsem začátečník, ale fakt neví ani učitel přitom si myslím že by to mělo být jednoduchý...

Potřeboval bych když se mi splní podmínka, tak aby mi to napsalo text: aaa,šš... do různých editů.... ono by to šlo napsat tak že bych napsal znova podmínku, ale musí to jít nějak jednoduše.

if (edit1.text='1') then (Edit2.text:='aaa') {tohle jsou dva edity, které mají fungovat najednou, ale nevím jak to zapsat} (edit3.text:='šš');


dííík moc :)

if edit1.text='1' then begin
edit2.text:='aaa';
edit3.text:='šš';
end;

takhle to myslíš???

To aby se na učitela zavolala inspekce! Tohle je snad uplný základ

ehm.. a kde to chodíš do školy? :D vieš, raz budem tiež rodičom tak aby som vedel čo je pre moje deti zlá volba

ked toto ucitel nevedel tak to bude snad ucitel telesnej :D

Třeba jestli chodíš na kuchaře tak bych se nedivil kdyby to učitel nevěděl :-D

jj, to je přesně ono... No on to není původně učitel informatiky a to říkal, že neví, ale že mi to zjistí... Ale učitel z informatiky mi něco takového říkal, ale popisoval to trošku jinak... Díky moc... ;)

"popisoval trošku jinak" :)))

to jde? zajímalo by mě kolik výkladů může mít begin..end :))

pkubicek píše:#
# "popisoval trošku jinak" :)))#
##
#to jde? zajímalo by mě kolik výkladů může mít begin..end :))

jako takhle jo?

if krivky>=vnadne then
vyklad:=zkresleny;

jj, asi tak nějak bych to podal... ;) hele, mám ještě jeden dotaz... potřeboval bych propojit dva ComboBoxi tak, aby když si v první vyberu třeba '1.A' tak v ve druhém se mi zobrazil seznam žáků této třídy a když v prvním zadám 2.B, tak zase aby v tom druhém se zobrazil seznam této třídy... Podotýkám, že tohle neví ani učitel z informatiky :)) ale říkal cosi o příkazu keys.. nebo tak nějak , ale já netuším co to bylo... nevíte někdo? :)

To Stanly:radil dobře - jedná se o příkaz CASE, napíšu ti přibližný kód, jak by to mělo být, ale něco si budeš muset doupravit:

CASE ComboBox1.něco of
'1.A': Begin
//tady si do druhyho comboboxu nalejes lidi z 1.A
End;
'2.B':Begin
//tady z 2.B
End;
atd...
END; //Case musí být ukončen vlastním ENDem...
nahořeno je potřeba nahradit "něco" tím, v čem má ComboBox uložené hodnoty, z hlavy nevím.

OK.. myslím že to 'něco' bude asi Items, ale ještě přemýšlím, jak tam nasypat ty lidi z těch tříd... myslíš jako:

CASE Combobox1.Items of
'1.A': Begin
0:= 'novak petr';
1:= 'novak karel';
...... atd..???

chápu to správně??

no tak jsem to zkoušel, ale nějak mi to nejede...Sem to nakonec napsal takhle, ale nevím jestli je to ok, ale asi není, protože to nejede :((

{CASE ComboBox1.Itemindex of
1: begin case Combobox2.Itemindex of
0: 'petr'
1: 'jarek'
2: 'lukáš' end;

2: begin case Combobox2.Itemindex of
0: 'lucka';
1: 'petra';
2: 'jana'; end

To Stanly:Každej CASE má end a taky ke každýmu beginu musí být end, takže to co jsi psal bude takto:

{CASE ComboBox1.Itemindex of
1: begin case Combobox2.Itemindex of
0: 'petr'
1: 'jarek'
2: 'lukáš'
end;
end;
2: begin case Combobox2.Itemindex of
0: 'lucka';
1: 'petra';
2: 'jana';
end;
end;
end;

Stanly> a příště než že to nejde napiš taky co ti vypisuje překladač ať nemusíme jenom tipovat...

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

  with combobox1 do begin

    case itemindex of

    0: with combobox2.items do begin

        clear;

        Add('Janko');

        Add('Ferko');

        Add('Jurko');

        end;

    1: with combobox2.items do begin

        clear;

        Add('Peťko');

        Add('Marin');

        Add('Monika');

        end;

    end;

  end;

end;

To audiotrack: Díky moooc.. to je přesně ono... ;)