[OrionIgorek2008]

Вот написал функцию, но она почему-то неработает:

Код:

function UnCom(Source,Sep:string): String;
var
  SepPos: integer;
begin
  SepPos:=AnsiPos(Sep,Source);
  if SepPos<>0
    then result:=Trim(Source)
    else result:=Trim(AnsiLeftStr(Source, Sep));
end;

Delphi ошибку пишет:
[Error] Unit1.pas(34): Undeclared identifier: 'AnsiLeftStr'

Подскажите пожалуйста, что делать?

[BlackCash]

Ну во первых добавь в Uses модуль StrUtils, а во вторых второй параметр у тебя типа String а должен быть Integer...

function AnsiLeftStr(const AText: AnsiString; const ACount: Integer): AnsiString;

[OrionIgorek2008]

Заменил переменную Sep на SepPos, добавил StrUtils и всё заработало! Спасибо!

Код:

function UnCom(Source,Sep:string): String; //+StrUtils
var
  SepPos: integer;
begin
  SepPos:=AnsiPos(Sep,Source);
  if SepPos=0
    then result:=Trim(Source)
    else result:=Trim(AnsiLeftStr(Source, SepPos));
end;