| 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 |
|
|
|
FAQ
Search
Memberlist
Usergroups
