Zitat von
DJ-SPM:
die Try-Except Blöcke werde ich noch einfügen. Was muss beim Except rein?
Hat keiner was von EXCEPT gesagt
Delphi-Quellcode:
procedure TContainer.setExpData(i: Integer; const Value: String);
begin
BeginWrite;
try
SetLength(FExpData, Succ(Length(FExpData)));
FExpData[High(FExpData)]:=Value; <- Warum muss ich einen Index haben?
finally
EndWrite;
end;
end;
So als Beispiel
...
...