Dotaz: Lazarus - Ulozeni rozlozeni prvku + prace s SQLConnector

[ok2zar]

Zdravim vsechny,

Mam dva zvydave dotazy, jejejichz reseni jsem nevygooglil.

Zajima me, zda se da nejak jendoduse ulozit rozlozeni prvku v okne a pak jej zase nacist a aplikovat. Jde mi o to mit vice rozlozeni prvku pro ruzne orientace nebo velikosti obrazovky. Mam napsanou aplikaci pro orientaci displaye na "vysku" pro konkretni display, ale snadno nastane situace, ze bude potreba pripojit vetsi display a aplikace bude muset bezet "na sirku". Takze aby pro obe varianty bylo optimalni rozmisteni prvku v okne. Je mi jasne, ze si dane pozice muzu poznamenat a jiste by to slo, tech prvku tam neni mnoho, ale zajima me, zda je nejake systematictejsi reseni.

Dalsi vec SQLConnector. Vse mi smrka. Ale netusim, jak donutit SQLConnector, aby se pripojil k IP, kterou si nacte z configu a ne k te, ktera je zadana v kodu jako default. Je mi jasne, ze po te, co ji zadam do SQLConnector.HostName, tak musim udelat nejake re-connect nebo tak, ale netusim jak.

Diky za pripadne rady.

Odpovědi

[X]

a] https://wiki.freepascal.org/Autosize_/_Layout#AutoSize

b] Ukaz kod.

[ok2zar]

a] Videl jsem nez jsem psal dotaz --> Neresi muj "problem". Ja to prebuje cele prehazet a ne ukotvit tam ci onde.
b] Co chces videt?

Prectu to z konfiguraku a naleju to do SQLConnectoru

 iniRead('config.ini');
 LazSerial1.Device:= SerPort;
 SQLConnector1.HostName:= DB_Host;
 SQLConnector1.DatabaseName := DB_Name;
 SQLConnector1.UserName:= DB_User;
 SQLConnector1.Password:= DB_Pass;

Samotnou query spracovavam podle examplu na wiki

  if SQLConnector1.Connected
     then begin
      Query := 'select * from cards where `cardID`='''+Form1.Edit1.Text+''';';
      SQLQuery1.SQL.Text := Query;
      try
          SQLQuery1.Open;
          SQLQuery1.First;
          while not SQLQuery1.EOF do begin
               .....
               .....
               .....
               .....
              SQLQuery1.Next;
          end;
          SQLQuery1.Close;
     except
       Form1.Edit2.Text := 'Chyba - nelze se připojit k DB';
     end;

     end;

Ale nejak ho musim donutit, aby se propojil k IP, co si nacetl v configu a ne co je v kodu jako default.

[X]

To jsou nejake kusy kodu. Kde mas definici iniRead(), nevidim zadne ReadString? Kde mas vytvoreni spojeni do databaze .create()? Co chci vedet? Chci videt kompletni kod, ne nejakou hadanku kde by asi mohla byt chyba...

[ok2zar]

Vyresil jsem to vymenou prvku SQLConnector za MySQL80Connection a vypnutim kontroly verze.

[D]

Pro ucel zapamotavani nastaveni TForm a jeji prvku slouzi

https://wiki.freepascal.org/TINIPropStorage nebo https://wiki.freepascal.org/TXMLPropStorage

V Object Inspetoru u Form v SessionProperties nadefinujes propities prvrku.

[ok2zar]

Diky, podivam se na to