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

• #1348 ViragL tag Tomcat13 #1347

  Új Válasz 2006-12-08 19:09:21 #1348

  Ú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

  

  ViragL

  tag

  válasz Tomcat13 #1347 üzenetére

  3. feladat (másolva a helpből)
  var
  
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
  begin
  if OpenDialog1.Execute then { Display Open dialog box }
  begin
  AssignFile(FromF, OpenDialog1.FileName);
  Reset(FromF, 1); { Record size = 1 }
  if SaveDialog1.Execute then { Display Save dialog box}
  begin
  AssignFile(ToF, SaveDialog1.FileName); { Open output file }
  
  Rewrite(ToF, 1); { Record size = 1 }
  Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
  + ' bytes...');
  repeat
  BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
  BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromF);
  CloseFile(ToF);
  end;
  end;
  end;
  
  2. feladat hoz annyit tudok mondani, töltsd fel a 2 lisBxot ugyanannyi elemmel, majd az OnCLick és OnKEyUp eseményekben állítsd be a másik ItemIndex propertyjét az esemény tulajdonosának ItemIndex értékére.
  
  1. feladat. pakold a neveket egy tömbbe, lehetőleg dinamikusba, egy listBoxba pakold bele őket. (.items.add). tegyél ki egy gombot, onclick eseményben listBox törlése (.items.clear) a tömb rendezése majd pakold vissza a listboxba a rendezett tömb elemeit.
  
  nincs most több időm erre, használd a helpet! bocs az esetleges szintaktikai hibákért. soksikert

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