Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
2. Aug 2006
Dann dauert es "nur" 500 ms... Aber warum muss man 500 ms warten, wenns auch 250 ms geht?
Außerdem hat mich dieser Code ein bisschen "gestört", weil das einfach nur irgendwelche aneinander geketteten Zeilen sind...
Ich mein, schon diese if's hätte man mit else verbinden können, aber noch nicht mal dass... Dann fehlte auch das try-finally im 1. IniBlock... Ich werde denn Code mir mal...
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
2. Aug 2006
Das sagt doch alles, warum ich 2 mal TIniFile.Create mache?
@ MemIniFile: Allerdings lese ich ja nur Daten = wenn ich einmal 10 Daten lese oder 10 mal eine Date (?) lese macht an sich keinen Unterschied oder?
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
2. Aug 2006
Dank erstmal ;)
Ich bevorzuge die Methode:
with TIniFile.create(Path) do
try
finally
Free;
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
2. Aug 2006
Kann man diese funktion schneller machen?
procedure TfrmMain.FormCreate(Sender: TObject);
var Ini : TIniFile;
s : String;
Zeit : Cardinal;
begin
Zeit := GetTickCount;
Spectrum := TSpectrum.Create(pbSVis.Width, pbSVis.Height);