unit MyForexUnit;
interface
function GetStrValue(Str : String; Index : Integer):String;
implementation
function FindCharInStr(Str: string; Ch: char):Integer;
Var i: Integer;
Begin
For i:=0 to Length(Str)-1 do
Begin
if Str.Chars[i] = Ch then
Begin
Result:=i;
Exit;
End;
End;
Result:= 0;
End;
Function GetStrValue(Str : String; Index : Integer):String;
Var i: Integer;
Begin
i:= FindCharInStr(Str, ',');
Result:= 'Alex';
End;
end.
|