AW: AW: Avanti-cl mit Delphi - ???

[Harald Schmid]

Hallo Frau Koczian,

Sie haben den Fehler in der schnell geschriebenen Mail schon gefunden.
Sorry, aber es ist schon eine Zeit her, da? ich die Routine geschrieben habe
und seitdem habe ich mit avanti-cl nichts mehr zu tun gehabt: Also, ich habe
dieses AVANTI:EOR per write-Befehl an meine Jobs gehangt, um einen
ordentlichen und sicheren Abschlu? zu haben, wann ich das Lesen wieder
aufhoren kann. Hier hatte ich auf anderen Wegen einige Hanger, soda? ich
mich zu diesem Schritt entschlo?. Also, avanti-cl schickt das an sich nicht
mit, aber man kann es naturlich hinter jeden Job als write selbst
dranpacken.

Viele Gru?e und schonen Feiertag

Harald Schmid

***            Harald Schmid              ***
      EDV-Beratung und Programmierung
Bahnhofstr. 23, D-82347 Bernried, Deutschland

  Telefon  +49 (0)8158 / 90 34 99
  Fax      +49 (0)8158 / 90 35 99
  Mobil    +49 (0)179  / 52 82 414
  eMail    mailto:harald.schmid at t-online.de


> -----Ursprungliche Nachricht-----
> Von: Maiser at buch.biblio.etc.tu-bs.de
> [mailto:Maiser at buch.biblio.etc.tu-bs.de]Im Auftrag von Sibylle Koczian
> Gesendet: Mittwoch, 29. Mai 2002 15:36
> An: Diskussionsliste Allegro-C
> Betreff: Re: AW: Avanti-cl mit Delphi - ???
>
>
> Lieber Herr Hoeppner, lieber Herr Schmid,
>
> At 14:52 29.05.02 +0200, you wrote:
> >Doch nun zu Ihnen, Frau Koczian:
> >Anbei eine selbstgestrickte Funktion, um mit avanti-cl in Delphi Jobs
> >abarbeiten zu konnen. Dabei ist noch eine Menge
> unaufgeraumtes Zeug dabei,
> >aber wie oben geschrieben, ich komme im Moment nicht dazu,
> mich mehr damit
> >zu beschaftigen.
> >
>
> Das sieht sehr vielversprechend aus. Nur eine Frage: schickt
> denn auch
> avanti-cl ein AVANTI:EOR? Oder vielleicht auch ein ASCII-26, wie am
> Job-Ende? Denn wenn AvantiEor den falschen Wert hat, ist die
> Endlosschleife
> ja schon da!
>
> >                 repeat
>
> ...
>
> >                 until copy(Result, length(Result) -
> length(AvantiEor) + 1,
> >length(AvantiEor)) = AvantiEor;
>
> ...
>
> >                 delete(Result, length(Result) -
> length(AvantiEor) + 1,
> > length(AvantiEor));
>
> Beste Gruesse, Koczian
>
>
> Dr. Sibylle Koczian
> Universitaetsbibliothek , Abt. Naturwiss.
> D-86135 Augsburg
>
> Tel.: (0821) 598-2400, Fax : (0821) 598-2410
> e-mail : Sibylle.Koczian at Bibliothek.Uni-Augsburg.DE
>