* calling objc methods are fixed, overload method name fixed

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@426 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2008-04-17 13:58:59 +00:00
parent 0d6ffd6e22
commit f6f101c184
4 changed files with 270 additions and 58 deletions

View File

@@ -150,9 +150,8 @@ var
st : TStringList;
f : Text;
err : AnsiString;
begin
err := '';
writeln('would you like to parse all current directory files .h to inc?');
readln(ch);
if (ch <> 'Y') and (ch <> 'y') then begin
@@ -235,6 +234,8 @@ var
vlm : AnsiString;
Params : TStringList;
begin
prm := '';
vlm := '';
Params := TStringList.Create;
Params.CaseSensitive := false;
try
@@ -270,10 +271,10 @@ begin
end;
var
inpf : AnsiString;
st : TStrings;
inpf : AnsiString = '';
st : TStrings = nil;
i : integer;
err : AnsiString;
err : AnsiString = '';
begin
try
GetConvertSettings(ConvertSettings, inpf);