Új hozzászólás Aktív témák

• #1561 Tele von Zsinór őstag qwartez #1560

  Új Válasz 2007-07-04 19:38:26 #1561

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tele von Zsinór

  őstag

  válasz qwartez #1560 üzenetére

  Innen tudsz leszedni próbaváltozatokat: [link]. Amúgy nem is kellett megvenni: régen a d6 personal ingyen letölthető volt, máig azt használom. Amúgy az általad kért proginak mondjuk lehet ez a FormCreate-je:
  
  procedure TForm1.FormCreate(Sender: TObject);
  var i: integer;
  begin
  if not OpenDialog1.Execute then
  Halt;
  
  for i := 0 to OpenDialog1.Files.Count-1 do
  ListBox1.Items.Add(OpenDialog1.Files[ i ]);
  
  if not SaveDialog1.Execute then
  Halt;
  
  ListBox1.Items.SaveToFile(SaveDialog1.FileName);
  
  Halt;
  end;
  
  [Szerkesztve]

Új hozzászólás Aktív témák