Re: Woher kommt dieser Laufzeitfehler?

Hallo Nineberry,

"NineBerry Schwarz" <News.10.03@xxxxxxxxxxxx> schrieb im Newsbeitrag
news:Xns96C18B72996BFNINEBERRY@xxxxxxxxxxxxxxx
> Hallo Stefan
> Vergleiche die Systemumgebungen:
>
> Welches Betriebssystem wird verwendet?
> Welches Gerät hängt am Port?
> Welche Firmware verwendet das Gerät?

ja an sein Dualprozessorsystem hatte ich am Anfang auch gedacht ;-) aber das
war es nicht.
Ich habe jetzt folgendes herausgefunden :
(Code auf das Notwendige gekürzt)

function kopfzeileninfo(zl : string) : kopf;
var
tlist : Tstrings; //gesplitteter Inhalt der Zeile zl
begin
//Bestimmen der Inhalte der Zeile
//und Rückgaberecord einstellen
tlist := zeilensplit(zl);
......
result.status := tlist[2];
result.rast := strtoint(tlist[3]);
.....
//und das hatte ich nicht im Code, weil ich der Meinung war, daß , wenn
tlist oben unter var deklariert ist,
//dieses automatisch freigegeben würde!
tlist.free;
end;

function zeilensplit(zl : string) : TStrings;
var
i : integer;
e : string;
begin
result := nil;
//Es wird eine Zeile mit etwa diesem Aufbau gesplittet :
"(1616262)(37372)(3734737)(37272)..."
//Splitten per "("
split(z,'(',result); //das ist die Split-Funktion aus FastStrings
//hier wird noch ein wenig an den Inhalten geändert, z.B. Klammer zu
entfernt
.....
end;

So, nun sagt mir bitte warum ich tlist da oben extra entfernen muß ;-)

Ciao
Stefan


.