Lazarus 3.0 (2023.12.21.)
Letöltés

  • Oldal:
  • 1
  • 2

TÉMA:

Válasz:20 forintos kérdés... 2012 márc. 19 06:43 #911

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Egy Showmessage(opendialog.filename) mit ír ki? Ha a programodat parancssorból indítod kapsz oda valami hibaüzenetet?
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2012 márc. 18 17:51 #910

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Eddig csak ékezet nélküli neveket adtam, pont az ilyen hibák kiküszöbölése miatt. Ennek ellenére nem nyitja meg.

Válasz:20 forintos kérdés... 2012 márc. 18 15:40 #909

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
Minden fájl esetén jön a hiba ha tallózással próbálod megnyitni, vagy csak ékezetes nevüeknél?
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Válasz:20 forintos kérdés... 2012 márc. 18 15:14 #908

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Megnyitja, ha így használom:
memo1.lines.loadfromfile( 'text.txt' )

Egyébként nem, pedig tallózással kellene, nem konkrét megadással, mint fent.

Válasz:20 forintos kérdés... 2012 márc. 18 14:37 #907

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
Ha a Lazarus-ból futtatod (zöld háromszög) a programodat akkor elvileg a hiba keletkezésének helyére vált a forráskódszerkesztö, és a hibát generáló sor ki lesz emelve.

Hibakeresési információk mentése be van kapcsolva?
Ezt a menüben a Project/Project Options"-ra, majd a megjelenö ablakban a "Compiler Option/Linking"-re kattintva ellenörizheted.

Esetleg futtasd a programodat lépésröl lépésre a "Run" menüben található "Step over F8" és a "Step into F7" használatával, hogy kiderüljön pontosan mikor és hol keletkezik a kivétel...
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Válasz:20 forintos kérdés... 2012 márc. 18 13:54 #906

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Nagyon köszönöm a segítséget. Sajnos a Te programod futtatásánál is ugyanaz a probléma. Lehet, hogy a telepítés rossz? Tényleg nem tudok már mire gondolni.
Lazarus IDE v0.9.30.2

Válasz:20 forintos kérdés... 2012 márc. 18 12:30 #905

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Amit a képről ki tudtam venni kód, az rendben levőnek látszik. Szerintem nézd meg, hogy az opendialog által visszaadott fájlnevet létezőnek találja e a FileexistsUFT8 vagy valami hasonló parancs. Ha ékezetes karakterek vannak a fájlnévben akkor előfordulhatnak hibák, ezért érdemes azokat átkonvertálni UTF8-ba használat előtt. Erről itt olvashatsz: wiki.lazarus.freepascal.org/LCL_Unicode_Support
Elkészítettem én is egy ilyen demo programot neked, ezt innen töltheted le: dl.dropbox.com/u/2766266/openfile.zip
Továbbá le is videóztam, hogy lásd működik:
dl.dropbox.com/u/2766266/opendialog.webm
Mind a két fájlt, amit linkeltem, pár nap múlva törlöm a szerverről. A videót, mivel webm formátumban van ezért valszeg VLC-vel tudod majd megnézni.
Amint a videón látszik nálam Ubuntu 11.10 operációs rendszer alatt, hibátlanul megy a dolog. A "fejlesztéshez" a Lazarus 0.9.30.4-et és a Free Pascal 2.6.0-t használtam.
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2012 márc. 18 10:14 #904

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
(Méretprobléma miatt nem csatolta.)

Válasz:20 forintos kérdés... 2012 márc. 18 10:13 #903

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Lemaradt a csatolmány.

Válasz:20 forintos kérdés... 2012 márc. 18 10:11 #902

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Csatoltam a progit, de sajna nem megy. :(

Válasz:20 forintos kérdés... 2012 márc. 18 08:02 #901

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
ejbenjaro-nál pontosabban senki sem tudja leírni.

A TMemo.Lines .LoadFromFile ugyanúgy használandó mint a TStrings.LoadFromFile amikhez a TString List-TString Tutorial wiki lapon találsz példákat.

A fájlok megnyitásához használható ablakot pedig a TOpenDialog használatával jeleníthetsz meg.

A Lazarus telepítésekor egyébként felkerült a gépedre néhány LCL példaprogram. Azokban is találhatsz ötleteket.
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Válasz:20 forintos kérdés... 2012 márc. 17 20:12 #900

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Köszi, de sehogy sem működik. Leírnád az egészet pontosan?

Válasz:20 forintos kérdés... 2012 márc. 17 18:03 #899

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Memo.lines.loadfromfile(fájl neve);
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2012 márc. 17 15:31 #898

  • dia44
  • dia44 profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
Sziasztok!

Lenne egy olyan kérésem, hogy text (.txt) fileból szeretnék beolvasni memoba, ez pontosan hogy lehetséges? (próbáltam loadfromfile, opendialog, nem működik!) Légyszí segíts! Köszi.

Válasz:20 forintos kérdés... 2011 máj. 29 11:01 #784

  • Stygian
  • Stygian profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 18
  • Köszönetek: 0
Szia!

köszönöm a segítséget :)

Válasz:20 forintos kérdés... 2011 máj. 29 06:04 #783

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
Szerintem ezért:
procedure TFlogger.BKeresClick(Sender: TObject); 
var iCol : integer ; 
begin 
  Dmodul.Zlog.First; 
  while not Dmodul.Zlog.EOF do 
  begin {AMÍG NINCS VÉGE A FÁJLNAK}
    SG1.RowCount := Dmodul.Zlog.FieldCount-1; {SOROK SZÁMA = MEZÖK SZÁMA-1... DE MIÉRT?} 
    for iCol := 0 to SG1.ColCount do {ANNYISZOR ISMÉTELED AHÁNY OSZLOP (mező) VAN}
    begin {EGY SOR ADATAINAK BEOLVASÁSÁT}
  SG1.Cells[0,icol] := Dmodul.Zlog.FieldByName('Serialnum').AsString; 
  SG1.Cells[1,icol] := Dmodul.Zlog.FieldByName('Partnum').AsString; 
  SG1.Cells[2,icol] := Dmodul.Zlog.FieldByName('Name').AsString; 
  SG1.Cells[3,icol] := Dmodul.Zlog.FieldByName('Station').AsString; 
  SG1.Cells[4,icol] := Dmodul.Zlog.FieldByName('Component').AsString; 
  SG1.Cells[5,icol] := Dmodul.Zlog.FieldByName('Fault').AsString; 
  SG1.Cells[6,icol] := Dmodul.Zlog.FieldByName('Employee').AsString; 
  SG1.Cells[7,icol] := Dmodul.Zlog.FieldByName('Date').AsString; 
  SG1.Cells[8,icol] := Dmodul.Zlog.FieldByName('state').AsString; 
  Dmodul.Zlog.Next; 
  end; 
  end; 
end;

.. és én így csinálnám:
procedure TFlogger.BKeresClick(Sender: TObject); 
var i : integer ; 
begin 
  Dmodul.Zlog.First; 
  i:=0;{ÜRES}
  while not Dmodul.Zlog.EOF do 
  begin {AMÍG NINCS VÉGE A FÁJLNAK A KÖVETKEZÖ SOR ADATAINAK BEOLVASÁSA}
  Inc(i);{MINDIG ANNYI A MENNYI AMENNYI}
  SG1.Cells[0,i] := Dmodul.Zlog.FieldByName('Serialnum').AsString; 
  SG1.Cells[1,i] := Dmodul.Zlog.FieldByName('Partnum').AsString; 
  SG1.Cells[2,i] := Dmodul.Zlog.FieldByName('Name').AsString; 
  SG1.Cells[3,i] := Dmodul.Zlog.FieldByName('Station').AsString; 
  SG1.Cells[4,i] := Dmodul.Zlog.FieldByName('Component').AsString; 
  SG1.Cells[5,i] := Dmodul.Zlog.FieldByName('Fault').AsString; 
  SG1.Cells[6,i] := Dmodul.Zlog.FieldByName('Employee').AsString; 
  SG1.Cells[7,i] := Dmodul.Zlog.FieldByName('Date').AsString; 
  SG1.Cells[8,i] := Dmodul.Zlog.FieldByName('state').AsString; 
  Dmodul.Zlog.Next; 
  end; 
  SG1.RowCount:=i;{ENNYI AZ ANNYI}
end;
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Válasz:20 forintos kérdés... 2011 máj. 28 11:10 #782

  • Stygian
  • Stygian profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 18
  • Köszönetek: 0
Sziasztok!

Ismételten egy bugyuta kérdés...

Szeretném egy akármi.db adatait megjeleníteni StringGrid-be.
Meg is jeleníti csak az a baj hogy mindig az utolsót 9szer...hol rontottam el? :dry:
procedure TFlogger.BKeresClick(Sender: TObject);
var iCol : integer ;
begin
  Dmodul.Zlog.First;
  while not Dmodul.Zlog.EOF do
  begin
    SG1.RowCount := Dmodul.Zlog.FieldCount-1;
    for iCol := 0 to SG1.ColCount do
    begin
  SG1.Cells[0,icol] := Dmodul.Zlog.FieldByName('Serialnum').AsString;
  SG1.Cells[1,icol] := Dmodul.Zlog.FieldByName('Partnum').AsString;
  SG1.Cells[2,icol] := Dmodul.Zlog.FieldByName('Name').AsString;
  SG1.Cells[3,icol] := Dmodul.Zlog.FieldByName('Station').AsString;
  SG1.Cells[4,icol] := Dmodul.Zlog.FieldByName('Component').AsString;
  SG1.Cells[5,icol] := Dmodul.Zlog.FieldByName('Fault').AsString;
  SG1.Cells[6,icol] := Dmodul.Zlog.FieldByName('Employee').AsString;
  SG1.Cells[7,icol] := Dmodul.Zlog.FieldByName('Date').AsString;
  SG1.Cells[8,icol] := Dmodul.Zlog.FieldByName('state').AsString;
  Dmodul.Zlog.Next;
  end;
  end;
end;

A segítséget előre is köszönöm :)

Válasz:20 forintos kérdés... 2011 márc. 14 20:55 #736

  • Stygian
  • Stygian profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 18
  • Köszönetek: 0
Köszönöm a segítséget mindenkinek.

Igazából mind a 2 megoldás működött ott volt a hiba, hogy a mappa neve ékezetes betűt tartalmazott...Banális hiba tudom, de a fene sem gondolta volna, hogy az elérési út nem tartalmazhat ékezetes karaktert:huh: .

Köszönöm mindenkinek a segítséget még egyszer

Üdv.:
Stygian

Válasz:20 forintos kérdés... 2011 márc. 14 18:04 #734

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Nos nem muszáj XML fájllal dolgoznod. Ha van egy szövegfájlod, amiben a korábban jelzett számok vannak vesszővel elválasztva soronként, akkor például csinálhatod azt, hogy ezt a szövegfájlt beolvasod egy StringListbe. Majd egy ciklussal végigmégy ezen a StrigListen és a sorait szépen egyessével hozzáadod a StringGrid-ed-hez az alábbi módon:

StringGrid1.Rows.CommaText:=StringList;

Így szépen belepakolja az adott sort a StringListből a StringGrid sorába. Arra figyelj, hogy ha kevesebb oszlop vagy sor van a StringGridben, mint amit a StringListből nyert adatok kívánnának, akkor gondjaid lesznek, a programod elszáll valami OutOfRange hibával.

Bár csak rávezetést kértél, azért én idemásolnák egy példát neked, ahol egy 6 oszlopos (ez volt az alapértelmezett) stringgrid van a formon és a méretét dinamikusan növeli a beleírt adatnak megfelelően.
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    fTxtFile : TStringList;
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  fTxtFile:=TstringList.Create;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  fTxtFile.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  if OpenDialog1.Execute then
  begin
    fTxtFile.LoadFromFile(OpenDialog1.Filename);
  end;
  for i:=0 to fTxtFile.Count-1 do
  begin
    if StringGrid1.RowCount <= i then StringGrid1.InsertColRow(False,i);
    StringGrid1.Rows[i].CommaText:=fTxtFile[i];
  end;
end;
 
end.

Ezzel a kóddal pl az alábbi szövegfájlt lehet beolvastatni aminek a neve legyen mondjuk a.txt, a tartalma meg a következő
1,2,5,7,78,45
5,89,65,34,25,77
15,2,66,55,44,33
1,2,5,7,78,45
5,89,65,34,25,77
15,2,66,55,44,33
1,2,5,7,78,45
5,89,65,34,25,77
15,2,66,55,44,33
1,2,5,7,78,45
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2011 márc. 14 16:48 #733

  • Stygian
  • Stygian profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 18
  • Köszönetek: 0
Köszi a linket. Megpróbáltam XML filet beimportálni úgy ahogy ott le van írva. Arra meg azt írja, hogy nem Grid file...

:side:

Válasz:20 forintos kérdés... 2011 márc. 14 11:11 #732

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Nézz szét itt, hátha van valami számodra érdekes dolog leírva :
wiki.lazarus.freepascal.org/Grids_Reference_Page
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2011 márc. 14 11:00 #731

  • Stygian
  • Stygian profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 18
  • Köszönetek: 0
Valamit elrontok, mert amikor belelépne a ciklusba RunError(3)-al kivág.

A kód:
myfile = Textfile
fileneve = string
Openstepfile = opendialog1
procedure TForm1.MenuItem8Click(Sender: TObject);
begin
  if Openstepfile.Execute then
   begin
     ASSIGNFILE(myfile, Openstepfile.FileName);
     RESET(myfile);
    while not EOF(myfile) do
     begin
     READLN(myfile,fileneve);
     ShowMessage(fileneve);
     end;
    CLOSEFILE(myfile);
   end;
end;

Mit rontottam el?
Előre is köszönöm a segítséget.

Válasz:20 forintos kérdés... 2011 márc. 13 21:54 #729

  • harrichy
  • harrichy profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 44
  • Köszönetek: 0
üdv. Stygian

nekem is kellet egyszer egy pont ilyen feladatot megoldanom
ennek a megoldásnak a lényegi része:

Var:szhalotolt:textfile

ASSIGNFILE(SZHALOTOLT,opendialog1.FileName);
RESET(SZHALOTOLT);
READLN(SZHALOTOLT,beolvasott szöveg);
Ciklussal ismételtetés…
CLOSEFILE(SZHALOTOLT);

Válasz:20 forintos kérdés... 2011 márc. 13 19:47 #728

  • Stygian
  • Stygian profilkép
  • Új tag
  • Új tag
  • Hozzászólások: 18
  • Köszönetek: 0
Sziasztok!

Nekem is lenne egy 20 Ft-os kérdésem.
A helyzet a következő:
Egy StringGrid-be szeretnék adatokat beolvastatni egy valami.txt-ből.
Opendialog-al kitallózom a filet odáig megy. De a txt-ből hogyan tudom
kiolvasni az adatot(számok csak pl 0,1,5,23...stb).

Nem szeretném, ha valaki konkrétan leírná azt amit be kell írnom,
mert akkor nem fejlődök. Elég ha rávezet :).

Előre is köszönöm
Stygian

Válasz:20 forintos kérdés... 2011 febr. 08 09:57 #694

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Nos, csak linuxon próbáltam, ott működött.
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2011 febr. 08 06:16 #692

  • harrichy
  • harrichy profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 44
  • Köszönetek: 0
Köszönöm a fáradozást,de nem működik ez sem

Válasz:20 forintos kérdés... 2011 febr. 07 21:35 #690

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Hát pl a TabSheet1.Color:=$FFDDCC; működhet.
De ez nem színezi be a "füleket", csak a TabSheet-t.
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/

Válasz:20 forintos kérdés... 2011 febr. 05 07:54 #688

  • harrichy
  • harrichy profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 44
  • Köszönetek: 0
Sziasztok.
Nekem is volna egy 20 de inkább 2 forintos kérdése.
Hogyan lehet egy pagecontrol tabsheet-jeit színessé
tenni.
pagecontrol1.color
pagecontrol1.brush.color

ezek nem működnek....?? :(

Válasz:20 forintos kérdés... 2010 szept. 08 06:30 #592

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 499
  • Köszönetek: 86
Én egy többnyelvű alkalmazásomban használtam a következő módszert a vezérlők .Caption, .Hint, és .Lines property-jeinek változtatására
var
  C,I,J:Integer;
  S:string;
begin
  for I:=0 to Form^.ComponentCount-1 do begin { végig megyünk a vezérlőkön }
 
    if IsPublishedProp(Form^.Components[I],'Caption')then begin{ ha elérhető a .Caption property akkor az 'Új szöveg' kerül bele }
      S:=Ini.ReadString(Form^.Name,Form^.Components[I].Name+'.Caption',GetPropValue(Form^.Components[I],'Caption',True))); { beolvasás .ini fájlból (IniFiles unit) fájlból }
      SetPropValue(Form^.Components[I],'Caption',S); { beállítás }
    end;
 
    if IsPublishedProp(Form^.Components[I],'Hint')then begin{ ha elérhető a .Hint propertije akkor az 'Új tipp' kerül bele }
      S:=Ini.ReadString(Form^.Name,Form^.Components[I].Name+'.Hint',GetPropValue(Form^.Components[I],'Hint',True))); { beolvasás .ini fájlból (IniFiles unit) fájlból }
      SetPropValue(Form^.Components[I],'Hint',S); { beállítás }
    end;
 
    if IsPublishedProp(Form^.Components[I],'Lines')then begin{ ha elérhető a .Lines property akkor... }
      (Form^.Components[I] as TMemo).Clear; { sorok kiürítése }
      C:=Ini.ReadInteger(Form^.Name,Form^.Components[I].Name+'.LineCount',0); { sorok számának beolvasása .ini fájlból (IniFiles unit) fájlból }
      for J:=0 to C-1 do begin { sorok beolvasása 'for' ciklissal }
        S:=Ini.ReadString(Form^.Name,Form^.Components[I].Name+'.Line'+IntToStr(J),'') { egy sor beolvasása .ini fájlból (IniFiles unit) fájlból (alapértelmezetten a sor üres) }
        (Form^.Components[I] as TMemo).Lines.Add(S); { egy 'Új sor' hozzáadása }
    end;
  end;
end;

A nyelvi fájl mintáját az .ini fájlok írásához használt eljárásokkal
a fenti kódhoz hasonlóan el lehet készíteni (a programom automatikusan
elkészítette ha nem létezett).
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

Válasz:20 forintos kérdés... 2010 szept. 06 21:37 #591

  • Lazaruszki
  • Lazaruszki profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 9
  • Köszönetek: 0
...hát ha nem jön jobb tipp, akkor marad a tömbös...

Köszi a tippet!

  • Oldal:
  • 1
  • 2