看看borland的帮助有多粗心(0分)

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #1

procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
Top := Ini.ReadInteger( 'Form', 'Top', 100 );
Left := Ini.ReadInteger( 'Form', 'Left', 100 );
Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );
if Ini.ReadBool( 'Form', 'InitMax', false ) then
WindowState = wsMaximized
else
WindowState = wsNormal;
finally
TIniFile.Free;
//太不认真了！
end;
end;

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #2

[]——[]
[!]
[]

 

酷

酷尔贝塔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #3

{ This function behaves much like ExtractFileName }
{ except that it uses null-terminated strings and }
{ it will not work with multi-byte character sets (MBCS). }
uses SysUtils;
function NamePart(FileName: PChar): PChar;
var
P: PChar;
begin
P := StrRScan(FileName, '//');
if P = nil then
begin
P := StrRScan(FileName, ':');
if P = nil then
P := FileName;
end;
NamePart := P;
end;

var
S : string;
begin
S := string(NamePart('C:/Test.fil'));
Canvas.TextOut(10, 10, S);
end;

 

K

karxios

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-30

• #4

[]

 

东

东方蜘蛛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-30

• #5

应该是
ini.free [][]

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-30

• #6

DELPHI的帮助确实有一些错误，我在看他的WIN API部分看到有一些参数写错了

 

5

5291

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #7

delphi在封住api的时候有很多很多的错误。
比如工具栏的chevron都没有加入。

 

Z

zlyanyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-30

• #8

我们给她弄个中文帮助，以帮助更多的初学者更快的学习，并改正其中的错误，让同仁不走或少走弯路。

 

小

小笨苯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-30

• #9

从另一个方面反应出：Borland公司的实力还是不行啊！
明显能看出，人员不足，以一顶十，过分疲劳，以至如此。

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-08

• #10

接受答案了.