Hallo,
wer programmiert denn so schlimm
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
FIniFile: TFIniFile;
begin
FIniFile:= TFIniFile.Create('C:\...\test.ini');
try
finally
FIniFile.Free;
end;
end;
oder mit dem with
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
with TFIniFile.Create('C:\...\test.ini') do
begin
try
(*........*)
finally
Free;
end;
end;
end;
Schönes Bsp., wie man sich mit
with Probleme bereiten kann
(liegt aber nicht am with, sondern an der Programmierung).
Delphi-Quellcode:
constructor TFIniFile.Create(const FileName: string; CommentChar: Char = '#');
var
Stream: TStream;
begin
//...
Create(Stream);
Stream.Free;
end;
Heiko