Anonymní profil Delphimania – Programujte.com

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...

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;

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?

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

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)

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

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?

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).

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?