Re: Woher kommt dieser Laufzeitfehler?
- From: Joe Galinke <spamfang@xxxxxxxxxx>
- Date: Mon, 29 Aug 2005 16:39:37 +0200
Hallo Stefan,
Stefan Koschke schrieb:
> 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;
Ich habe eben wohl zu schnell gelesen.
Habe ich ein TStrings.Create übersehen? Ich finde es nicht. Oder erzeugt
Split() diese Instanz wenn mit nil gefüttert?
Außerdem ist TStrings so nicht direkt verwendbar. Schaue Dir mal die OH
dazu an.
Gruß, Joe
--
.
- References:
- Woher kommt dieser Laufzeitfehler?
- From: Stefan Koschke
- Re: Woher kommt dieser Laufzeitfehler?
- From: Markus Gronotte
- Re: Woher kommt dieser Laufzeitfehler?
- From: Stefan Koschke
- Re: Woher kommt dieser Laufzeitfehler?
- From: NineBerry Schwarz
- Re: Woher kommt dieser Laufzeitfehler?
- From: Stefan Koschke
- Woher kommt dieser Laufzeitfehler?
- Prev by Date: Re: Woher kommt dieser Laufzeitfehler?
- Next by Date: Re: Woher kommt dieser Laufzeitfehler?
- Previous by thread: Re: Woher kommt dieser Laufzeitfehler?
- Next by thread: Re: Woher kommt dieser Laufzeitfehler?
- Index(es):
Relevant Pages
|