Potreboval by som nazor plebsu. Premyslam, ze na stare kolena skusim predsa len nejaky marketing. Idea je tvorit idealne vtipne videa, ktore prezentuju firmu a zaroven zanechaju v divakovi nie az tak reklamny dojem, ale skor si ten pribehovy. Prva cast je o klasickom vikendovom utoku, ktory sa bezne deje, cize utocnik najde otvoreny deravy Windows server, pocka si na vikend a v piatok v noci zacne so sifrovanim jeho obsahu. Vacsinou este v sobotu sifrovanie bezi, ale prvi zamestnanci prichadzaju do prace az v pondelok, ked najdu nepouzitelne programy, databazy, zrazu nic nefunguje. Dnes uz nie je je vacsinou cesta ako data desifrovat, takze bud sa zplati vydieracovi (neodporucam), alebo sa obnovia data a cely server zo zalohy. Samozrejme s tym, ze sa aj uzavrie diera, ktorou sa utocnik dostal dnu.
Přejít na článek
To ku knizniciam delphi nie je ziadny reference manual ze sa pyta furt kazdy take veci?
http://www.delphibasics.co.uk/Article.asp?Name=Stan dard
procedure TForm1.ListBox1Click(Sender: TObject);
var
listBox : TListBox;
index : Integer;
begin
// Cast the passed object to its correct type
listBox := TListBox(Sender);
// Get the index of the selected list item
index := listBox.ItemIndex;
// Display the selected list item value
ShowMessage(listBox.Items[index]);
end;
Už to mám.
VybraneJmeno:= ListBox1.Items[ListBox1.Itemindex];
Cpal jsem to do kulatých závorek a to mi nebralo.
Pardon, co to? Tohle funguje editu, ale ne u listboxu. (D7)
Omlouvam se, nejak v osledni dobe spatne ctu a misto ListBox jsem cetl Combobox
Měl bych ještě jeden dotaz:
Jak programově označit některý řádek v ListBoxu? // tedy nikoliv myší.
Ak sa nemylim (uz som dlho nemal spustene Delphi):
Cislovane od 0 po pocet zaznamov - 1
Ano, díky.
VybraneJmeno:= ListBox1.Items[Listbox1.ItemIndex];