Anonymní profil Delphimania – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Delphimania – Programujte.comAnonymní profil Delphimania – Programujte.com

 

Příspěvky odeslané z IP adresy 85.70.93.–

Delphimania
Delphi › Soubory
6. 1. 2009   #93823

Ve své práci jsou použil textové soubory, ale dověděl jsem se, že to jde i jinak. Tak jsem se učil, zkoušel jsem to, ale nějak mi to nejde... Mám typ uzivatel. Pak mám soubor type file of uzivatel. Takže to byl měl být vlastní soubor, který delfíni umí zpracovat. Ale, jak dám vědět, že přistupuji k prvnímu záznamu v souboru, nebo druhému atp.?

Hledal jsem na spoustě míst (i kurzy zive.cz) - ale o tohle tam nikde není zmínka...

Delphimania
Delphi › pomoc s úkoly
6. 1. 2009   #93822

Ta zapoznámkováná část vypadá dobře - měla by jet...

Tuhle část tak nechápu... Proč tam je? Přeházet to a pak to seřadit - no seřadit, vyměnit pár prvků? To je divný...
for b := 1 to N do
for a:= 1 to N - 1 do
if pole [a] < pole [a + 1] then
begin
pomoc :=pole [a];
pole [a] :=pole [a+1];
pole [a+1] := pomoc;
end;

Delphimania
Delphi › Ttime, Datetimepicker a poro…
4. 1. 2009   #93503

Tak jsem při testování programu přítelkyní zjistil, že tam mám nefunkční řádky...

V programu jsou dva DateTimePicker-y, jeden na datum a jeden na čas. Program povolit odeslání objednávky jen do budoucna.


begin
if (TDate(now)<DateTimePicker_Zak1.Date) or ((TDate(now)=DateTimePicker_Zak1.Date) and (TTime(now)<DateTimePicker_Zak2.Time)) then

//osetreni data
begin
if MessageDlg('Opravdu chcete odeslat objednavku?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
showmessage('Vase objednavka byla prijata.');
ulozdata;
end;

end
else
showmessage('Ani my neumíme cestovat v čase. Zvolte budoucí datum.');
end;

Datum funguje v pohodě. Ale pokud si chci auto objednat dnes, tak ať zadám jakýkoli čas, program to vezme jako že tenč as ještě nenastal...

A když už jsem u toho.

Tohle funguje:
DateTimePicker_Zak1.Date:=Date;

Tohle nefunguje:
DateTimePicker_Zak1.time:=Time;

Proč ta druhá verze nefunguje a nenastaví přesný čas?

Delphimania
Delphi › Spuštění více formulářů
4. 1. 2009   #93489

Tak jsem na to přišel... Díky všem - velké díky - vděčím Vám za zápočet :)

Delphimania
Delphi › Spuštění více formulářů
4. 1. 2009   #93485

program taxi;

uses
Forms,
Unit1 in 'Unit1.pas' {Form_Main},
Unit2 in 'Unit2.pas' {LogIn: TFrame};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm_Main, Form_Main);
Application.Run;
end.

Jak to tedy máš vypadat po úpravě? (unit1 je program, unit2 je frame který se užívá pro statistické funkce a unit 3 je login)

Delphimania
Delphi › Spuštění více formulářů
4. 1. 2009   #93417

Já vím, zkoušel jsem to, ale nevím jak jako první spouštět form2 z unit2.

Delphimania
Delphi › Spuštění více formulářů
3. 1. 2009   #93336

Tak další problém... Pokud obsloužít událost form1 oncreate a dám tam unit2.form2.show; , tak mi to hlásí chybu. Obsloužení tlačítla tímto textem funguje... Kde je problém?

Delphimania
Delphi › Spuštění více formulářů
3. 1. 2009   #93333

To o-lox : To Delphimania :

Tak blokování prvků jsem udělal přes visible form_main. Snad to je v pohodě. Jen ještě jeden malinký dotaz. Jaká vlastnost je "horní řádek"? (tj. nechci tam mít minimalizovat, maximalizovat a hlavně zavřít).

Delphimania
Delphi › Spuštění více formulářů
3. 1. 2009   #93323

Zdravím!

Mám program - ten je na form1, ale rád bych do něj udělal něco jako login. K tomu by měla sloužit vyvolaná form2. Jak ji ale vyvoval? Create nefunguje...

Eventuelně jednoduchý návod jak to řešit. (Hlavní program a k němu login, tedy něco, co se zobrazí hned po stratu programu (a po stisknutí na tlačítko odhlásit), zablokuje všechny funkce na hlavním programu a až po přihlášení (ověřování uživatele ze souboru) ev. zaregistrování se podle přístupových práv zpřístupní příslušní sekce programu.

A ještě jeden problém. Potřeboval bych showmessage, ale s více řádky. Jak na to?

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý