Jak mám zavolat tuhle funkci - prosím – Delphi – Fórum – Programujte.com

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;

#1 Kopretinka
žeby jejím jménem?

vysledek:=ExtractText(zadani,znak1,znak2);

napriklad:

vysledek:=ExtractText('nejaky text','j','x');

melo by to vratit:

vysledek='aky te'

viz JoDiK, já jen dodám, že pokud fci. voláš z jiného unitu než ve kterém je fce. napsána, tak si musíš unit s funkcí přidat do Uses ...

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

#4 Kopretinka

No, upravíš to tak, že do té funkce přidáš cyklus, který bude to, co dělá teď, opakovat tak dlouho, dokud, tam budou takovéto dvojice znaků. Většinou se za tím účelem už nalezená část z hledaného řetězce odstraní celá a pak se znovu prohledává ten zbytek...