Anonymní profil Kopretinka – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Kopretinka – Programujte.comAnonymní profil Kopretinka – Programujte.com

 

Příspěvky odeslané z IP adresy 94.113.250.–

Kopretinka
Delphi › Jak mám zavolat tuhle funkci…
3. 3. 2014   #187835

Děkuju moc, jde to perfektně, jen mám ještě jeden problém, ta funkce mi zachytí první výraz a tím končí, poraďte mi ještě prosím, jak ji přizpůsobit, aby projela celý text. Děkuju moc

Kopretinka
Delphi › Jak mám zavolat tuhle funkci…
26. 2. 2014   #187711

function ExtractText(const Str: string; const Delim1, Delim2: char): string;
var
  pos1, pos2: integer;
begin
  result := '';
  pos1 := Pos(Delim1, Str);
  pos2 := Pos(Delim2, Str);
  if (pos1 > 0) and (pos2 > pos1) then
    result := Copy(Str, pos1 + 1, pos2 - pos1 - 1);
end;

 

 

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