Autor Téma: Jak byste řešili malý prográmek  (Přečteno 153 krát)

Offline karkojk

  • Nováček
  • *
  • Příspěvků: 6
  • Karma: 0
    • Verze Delphi: RAD Studio X5
Jak byste řešili malý prográmek
« kdy: 26-06-2020, 08:36:46 »
Ahoj,
občas, teď více při přerovnávání dat odstraňuji diakritiku a někde zaměňuji znak mezery.
Jak byste řešili malý prográmek, který po spuštění toto provede ve schránce windows aby neměl 10MB ;-).
Je to primitivní dotaz :) , třeba už něco takového je a nějak mi s Delphi ujel vlak  :D ;D
děkuji
« Poslední změna: 26-06-2020, 08:38:59 od karkojk »
Programování pro radost, prý to bystří mysl ;-)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Jak byste řešili malý prográmek
« Odpověď #1 kdy: 26-06-2020, 09:27:17 »
Ak už ten program máš, tak si prejdi diskusiu a hľadaj "veľkosť exe". V češtine.  Sú tu nejaké rady ohľadom jeho zmenšenia.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline karkojk

  • Nováček
  • *
  • Příspěvků: 6
  • Karma: 0
    • Verze Delphi: RAD Studio X5
Re:Jak byste řešili malý prográmek
« Odpověď #2 kdy: 26-06-2020, 10:01:29 »
Děkuji za tip, nemám, dělal jsem to přes LibreOffice, je tam hezký doplněk, ale pokaždé to spouštět, když tu máme Delphi ;-).
Alespoň zapnu mozkové závity jiným směrem.
Koukám jak jsi tu pořád aktivní, to znamená, že jsi v pořádku, fajn.
Ještě jednou dík a měj se hezky
Programování pro radost, prý to bystří mysl ;-)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Jak byste řešili malý prográmek
« Odpověď #3 kdy: 26-06-2020, 10:10:18 »
To by sa malo dať spustiť z Delphi. Ale tu nepomôžem.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4992
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Jak byste řešili malý prográmek
« Odpověď #4 kdy: 26-06-2020, 12:06:26 »
Excellent
Rated 1 time
Pozrel so sa do akaše a našiel som tam toto. Možno je to to čo chceš.
Citace
Nejprve pro jistotu ještě jednou připomenu, že k používání třídy TClipboard (a tedy také funkce Clipboard) je nutné přidat do sekce uses v aktuálním modulu jednotku Clipbrd. Nejdůležitější vlastností třídy TClipboard je AsText. Ta reprezentuje obsah schránky jako text. Slouží k umístění textu do schránky nebo k vybrání textu ze schránky. Pokud by data nebyla textová, vyvolá se výjimka. Ke zjištění, obsahuje-li schránka textová data, lze s úspěchem použít funkci HasFormat s parametrem CF_TEXT – viz příklad (k jeho funkčnosti je nutné, aby v sekci uses byla uvedena jednotka Clipbrd):
Kód: [Vybrat]
procedure TfrmHlavni.btnTestClick(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_TEXT) then
    Edit1.Text := Clipboard.AsText
  else
    MessageDlg(`Ve schránce není žádný text!`, mtInformation,
        [mbOK], 0);
end;
Čerpané z "Umíme to s Delphi" Autor Kadlec. Dá sa to stiahnuť z internetu. Prípadne upresni o čo Ti z programovej strany ide. Mám múdre knihy.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline karkojk

  • Nováček
  • *
  • Příspěvků: 6
  • Karma: 0
    • Verze Delphi: RAD Studio X5
Re:Jak byste řešili malý prográmek
« Odpověď #5 kdy: 28-06-2020, 10:18:30 »
Dám vědět Stando,
teď jsem od toho musel odskočit, také mám hodně knížek, jen to najít, hlava už tak neslouží, kde co bylo. Tak když je chvilka, listuji ;-). Chtělo by to vše v PDF, to se lépe hledá.
Zatím děkuji moc
Programování pro radost, prý to bystří mysl ;-)