Funkce pro práci s řetězci
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Funkce pro práci s řetězciFunkce pro práci s řetězci

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vytvořte si vlastní webové stránky. Snadno, rychle a levně přes Saywebpage.com
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno
Laser Game Ostrava

Funkce pro práci s řetězci

Google       Google       11. 4. 2006       19 940×

Tento díl je věnován funkcím pro práci s řetězci v Delphi.

Reklama
Reklama

V tomto díle tipů a triků v Delphi se budeme zabývat různými funkcemi pro práci s řetězci. Začneme funkcemi, které nám rozdělí text na určité části. Myslím si, že tyto funkce jsou velmi důležité a budou se vám určitě někde hodit. Nejprve si musíme vložit do uses unit StrUtils. A teď vám ukážu funkce, které nám budou rozdělovat různé řetězce. Jako příklad uvedu funkci LeftStr, která se provede po stisku tlačítka:


procedure TForm1.Button1Click(Sender: TObject);
var
  s:string; //řetězec, který budeme dělit na části
  NewStr:String; //řetězec, který vznikne s předešlého řetězce
Begin

  NewStr := LeftStr(s,4);
  //když proměnná s bude "notebook", tak nám funkce LeftStr vrátí řetězec "note"

  ShowMessage(NewStr);
  //vyhodí se nám hláška s novým řetězcem
end;

Popis funkce

Jak už jste si určitě všimli, tak do prvního parametru vkládáte text, který chcete rozdělit. A druhý parametr slouží na to, kolik řetězců se má z levé části řetězce oddělit. Obdobná funkce funkci LeftStr je funkce RightStr. Ta jako LeftStr taky rozkládá text na části, ale z prava. No a třetí funkce je MidStr, která nám rozdělí text od nějakého písmene. Příklad:


procedure TForm1.Button1Click(Sender: TObject);
var
  s:string; //řetězec, který budem dělit na části
  NewStr:String; //řetězec, který vznikne s předešlého řetězce
Begin

  NewStr := MidStr(s,3,4);
  //když proměnná s bude "notebook", tak nám funkce MidStr vrátí řetězec "tebo"
  
{První parametr je řetězec, který chceme rozdělit. Druhý parametr je od kolikátého znaku v řetězci se začne rozdělovat. A třetí parametr je kolik znaků se bude brát}

  ShowMessage(NewStr);
  //vyhodí se nám hláška s nový řetězcem
end;

To je vše k funkcím na rozdělení textu. Jako poslední vám ukážu funkce ParamStr a ParamCount. Pro tyto funkce už nemusíte mít v uses unit StrUtils. Funkce ParamStr nám vrátí parametr, se kterým se soubor spouští. ParamCount nám udává, kolik je parametrů. Toto můžeme využít např. když bychom chtěli otevřít textový soubor v našem editoru, tak aby se otevřel hned, jak poklikáme na textový soubor. Příklad:


procedure TForm1.FormCreate(Sender: TObject);
//při vytvoření Form1

Begin

  If ParamStr(1) <> ' ' then begin
    Memo1.lines.LoadFromFile(ParamStr(0));
  end;
//když bude nějaký parametr, tak se otevře soubor

end;

Můžeme si to hned ověřit jestli to bude fungovat. Najděte si někde na disku textový soubor. Dejte otevřít v programu. Teď zvolte “zvolit program“. A najděte si náš exe soubor tam, kde máte uložený tento příklad. Soubor se vám otevře se vašem programu. To je konec dnešního dílu. Příště se budeme zabývat sítěmi.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

2 názory  —  2 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
Autor programoval v Visual Basicu, Delphi, nyní jen v Jave!

Nové články

Obrázek ke článku 18+ věcí, které by měl dobrý iOS vývojář zvládat

18+ věcí, které by měl dobrý iOS vývojář zvládat

Začátky jsou vždy v každém oboru nejtěžší a hodně času zabere se vůbec v tématu zorientovat. Jinak tomu není i pří vývoji na iOS zařízení. Proto jsme vytvořili článek pro ty, kteří své znalosti teprve budují. Tento krátký dokument shrnuje, co potřebuje každý iOSák znát.

Reklama
Reklama
Obrázek ke článku V přechodu na DVB-T2 tápou především senioři. Přeladit jim pomáhají vnoučata, zapojí se i stát

V přechodu na DVB-T2 tápou především senioři. Přeladit jim pomáhají vnoučata, zapojí se i stát

Už na konci měsíce může zůstat část Čechů bez televizního signálu. Vypínání stávající sítě začne již 27. listopadu v Praze a středních Čechách a do poloviny roku 2020 čeká přechod na nový standard pozemního digitálního televizního vysílání DVB-T2 celou republiku. K naladění nového televizního vysílání musí řada lidí nakoupit modernější zařízení, upravit antény nebo přejít na kabelové či internetové vysílání. 

Obrázek ke článku Zavádění Master Data Management v praxi

Zavádění Master Data Management v praxi

Předchozím článku jsme si vysvětlili, co jsou to Master Data, kdy je firma obvykle začíná řešit, v jakých krocích postupovat a jak nám může pomoci zvláštní nástroj pro evidenci Master dat. V tomto článku se podíváme na dvou příkladech, jak prakticky začít Master data řešit.

1. Nová Master Data, která potřebujeme někde spravovat
2. Zmapování existujících Master dat a určení jejich vlastníků

Obrázek ke článku 5 nesprávných důvodů, proč dělat vlastní mobilní aplikaci

5 nesprávných důvodů, proč dělat vlastní mobilní aplikaci

Myslíte si, že máte skvělý nápad na byznys apku a znáte všechno, co potřebujete? Možná vám vývoj software na míru rozmluví Vláďa Skoumal, z firmy studio SKOUMAL vyvijející mobilní aplikace 5.11. 2019 v 18:00 v Impact Hub Praha nebo tento jeho článek.


 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032020 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý