View previous topic :: View next topic |
Author |
Message |
Kristians
Joined: 06 Apr 2005 Posts: 99 Location: Ventspils
|
Posted: Tue May 03, 2005 5:00 pm Post subject: Kā noteikt vienas rindas garumu delfos uz piemēram Tmemo |
|
Kā noteikt vienas rindas garumu delfos uz piemēram Tmemo? |
|
Back to top |
|
|
bubu Indago Uzvarētājs
Joined: 23 Mar 2004 Posts: 3223 Location: Riga
|
Posted: Tue May 03, 2005 6:05 pm Post subject: |
|
Ja nemaldos, tad piemēram 6-tai rindai : Length(memo.Lines[5]);
LInes masīvs sākas no 0. |
|
Back to top |
|
|
AnetiX Indago Uzvarētājs
Joined: 05 Jun 2003 Posts: 573
|
Posted: Tue May 03, 2005 11:20 pm Post subject: |
|
1) Noteiktai rindiņai: length(memo1.Lines.Strings[0]);
2) Visam tekstam: length(memo1.text);
Update:
hmm.... :) Lines arii izraadas ir TStrings... :) Nebiju pamanijis. Sou, der tad arī tas length(memo1.lines[0]); _________________ Miljons iemeslu, kāpēc Latvija ir labākā valsts pasaulē
http://www.millionreasonswhylatviaisthebestcountryintheworld.com |
|
Back to top |
|
|
Kristians
Joined: 06 Apr 2005 Posts: 99 Location: Ventspils
|
Posted: Sat May 07, 2005 11:33 am Post subject: |
|
Ok tas nu man būtu ta kā skaidrs, bet kā var dabūt daļu tekstu no vienas rindas piemēram pirmo burtu |
|
Back to top |
|
|
bubu Indago Uzvarētājs
Joined: 23 Mar 2004 Posts: 3223 Location: Riga
|
Posted: Sat May 07, 2005 11:38 am Post subject: |
|
Taču tāpat kā no jebkura stringa: strings[1]
Bet ja vajag fragmentu, tad: Copy(strings, 2, 3) - no 2 burta sākot 3 burtus. |
|
Back to top |
|
|
Kristians
Joined: 06 Apr 2005 Posts: 99 Location: Ventspils
|
Posted: Wed May 11, 2005 6:44 pm Post subject: |
|
Kārtējais stulbais jautājums par delphi kā var tikt klāt sistēmas reģistram ? piemēram nomainiit desktop bildi? |
|
Back to top |
|
|
AnetiX Indago Uzvarētājs
Joined: 05 Jun 2003 Posts: 573
|
Posted: Wed May 11, 2005 7:10 pm Post subject: |
|
Tu googli arii meedz atveert? Ieej www.google.lv, ieraksti, teiksim "change+wallaper+delphi" un viss...
Code: | var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', 'c:\bilde.jpg);
Reg.WriteString('desktop', 'TileWallpaper', '1');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end; |
_________________ Miljons iemeslu, kāpēc Latvija ir labākā valsts pasaulē
http://www.millionreasonswhylatviaisthebestcountryintheworld.com |
|
Back to top |
|
|
Kristians
Joined: 06 Apr 2005 Posts: 99 Location: Ventspils
|
Posted: Wed May 11, 2005 7:33 pm Post subject: |
|
mēdzu bet slinkums... |
|
Back to top |
|
|
AnetiX Indago Uzvarētājs
Joined: 05 Jun 2003 Posts: 573
|
|
Back to top |
|
|
Kristians
Joined: 06 Apr 2005 Posts: 99 Location: Ventspils
|
Posted: Thu May 12, 2005 11:45 am Post subject: |
|
točna... |
|
Back to top |
|
|
|