Hi,
ich habe ein Problem. Die Funktion SetLength funktiniert bei mir nicht richtig.
Mit SetLength will ich einen String (output) kürzen. Und zwar um den Wert "StartInt".
Dieser setzt sich aus einem String zusammen, der in etwas so aussieht "30-35". Also suche ich nach dem "-",
und benutzt dann nur noch die "30". Die wandle ich in einen Integer um. Das sollte dann die
Länge meines Strings sein, doch das Programm stürtz mir immer mit deiser Fehlermeldung ab:
Zitat:
Zugriffsverletzung bei Adresse 004570ED in Modul 'Projekt 1.exe'. Lesen von Adresse 000000000
Delphi-Quellcode:
begin
output:=Textfile.strings[Line];
for counter1 := 0 to Length(Points[Line])-1 do
begin
if Points[Line][counter1]='-' then
begin
Start:=Points[Line];
SetLength(Start, counter1-1);
StartInt:=StrToInt(Start);
end;
if ((output[1]='>') and (output[2]='>'))=true then
begin
Delete(output,1,2);
SetLength(output, StartInt);
ListBox1.Items.Add(output);
end;