Aktív témák

• #22 KovacsUr addikt steveetm #21

  2003-10-11 20:28:15 #22

  Ö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

  

  KovacsUr

  addikt

  válasz steveetm #21 üzenetére

  Szerintem a kivételek egyszerűbbek, de ugye ízlések és pofonok :)

• #19 KovacsUr addikt

  2003-10-11 20:06:36 #19

  Ö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

  

  KovacsUr

  addikt

  Jah, mondjuk még annyit, hogy most így semmit nem csinálsz a beszúrás után az eredménnyel...
  
  procedure TForm1.Beszrs1Click(Sender: TObject);
  var
    mit, mibe:string;
    hova:integer;
  begin
    mit := edit4.Text;
    mibe := edit3.Text;
    hova := StrToInt(edit5.Text);
    Insert(mit, mibe, hova);
  
    {Ha valahol meg akarod jeleníteni, akkor még kell vmi ilyesmi:}
    edit3.Text := mit;
  end;

• #18 KovacsUr addikt KovacsUr #17

  2003-10-11 19:43:23 #18

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #17 üzenetére

  Aha, megjött, és ez hiányzik. Szóval
  
  [unit1.pas]
  
  implementation
  
  {$R *.dfm}
  
  {ide szúrj be egy olyat, hogy}
  
  uses SysUtils;

• #17 KovacsUr addikt

  2003-10-11 19:40:52 #17

  Ö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

  

  KovacsUr

  addikt

  Ümm... várj, lehet, hogy csak nem tetted bele a uses-be a SysUtils-t (mondjuk nem is mondtam)...

• #14 KovacsUr addikt KovacsUr #13

  2003-10-11 19:32:28 #14

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #13 üzenetére

  Ekkor viszont az a gond, hogy ha olyat írnak a harmadik editbe, amit nem sikerül számmá konvertálni a függvénynek, akkor kapsz egy kivételt. Kivételkezelést tanultátok már, vagy ne terheljelek tovább?

• #13 KovacsUr addikt Alvin_ti4200 #12

  2003-10-11 19:31:10 #13

  Ö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

  

  KovacsUr

  addikt

  válasz Alvin_ti4200 #12 üzenetére

  Eh. Kicsit bővebben? :) Mi a hiba?
  
  Lehet, hogy régi delphit használsz, amiben még nincs ilyen. Akkor próbálj
  
  StrToInt(Hova.Text)
  
  -et használni.

• #10 KovacsUr addikt KovacsUr #9

  2003-10-11 19:11:43 #10

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #9 üzenetére

  StrToIntDef(Hova.Text,0) <-- így ha nem tudja konvertálni számmá a pozíciót, az elejére szúrja be a szöveget. Ha úgy szeretnéd, hogy a végére tegye, akkor cseréld le erre:
  StrToIntDef(Hova.Text,MaxInt)

• #9 KovacsUr addikt

  2003-10-11 19:09:09 #9

  Ö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

  

  KovacsUr

  addikt

  Na, most összeállt az egész. :DDD
  Értem. Van 3 edited, ezekben a három paraméter, és végre kell hajtani.
  
  Legyen Mit, Mibe, Hova a három TEdit neve.
  
  s := Mit.Text;
  Insert(s, Mibe.Text, StrToIntDef(Hova.Text,0));

• #8 KovacsUr addikt KovacsUr #7

  2003-10-11 19:01:08 #8

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #7 üzenetére

  Szóval beszúrod az első paraméterben megadott szöveget a második paraméterben megadott szövegbe a harmadik paraméterben megadott helyen. :)

• #7 KovacsUr addikt Alvin_ti4200 #5

  2003-10-11 19:00:05 #7

  Ö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

  

  KovacsUr

  addikt

  válasz Alvin_ti4200 #5 üzenetére

  Ó. RTFM :), de azért
  
  procedure Insert(const InsertStr: string; var TargetStr: string; Position: Integer);
  
  van pld. egy s stringed:
  
  var s: string;
  
  s := '123456';
  Insert('abc', s, 3);
  
  ezek után az s értéke '12abc3456' lesz.

• #3 KovacsUr addikt KovacsUr #2

  2003-10-11 18:51:19 #3

  Ö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

  

  KovacsUr

  addikt

  válasz KovacsUr #2 üzenetére

  Egyik editből áttenni a szöveget a másikba?
  
  Edit2.Text := Edit1.Text;

• #2 KovacsUr addikt Alvin_ti4200 #1

  2003-10-11 18:50:28 #2

  Ö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

  

  KovacsUr

  addikt

  válasz Alvin_ti4200 #1 üzenetére

  Nem egészen értem... String parancs nincs, a string egy beépített adattípus szöveges adatok tárolására. Mit szeretnél csinálni?

Aktív témák