HP SunSoft Pascal 4.0 Uživatelský manuál Strana 253

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 333
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 252
The XView Toolkit 229
10
Sample Translation of an XView Function to Pascal
In the section, “Summary of Procedures and Macros,” in the XView
Programming Manual, is the following entry:
If you translate the entry to Pascal, it means:
Leave the object data type, Textsw, as is.
Since the function returns the number of characters inserted, invoke it as an
integer function.
texsw_insert()
Inserts characters in buf into textsw at the current
insertion point. The number of characters actually
inserted is returned. This will equal buf_len unless
there was a memory allocation failure. If there was
a failure, it will return 0.
Textsw_index
textsw_insert(textsw, buf, buf_len)
Textsw textsw;
char *buf;
int buf_len;
...
var
textsw: Textsw ;
buf: array[0..3] of char ;
buf_len: integer;
N:Textsw_index;
begin
...
N := textsw_insert (textsw, buf, buf_len) ;
end.
Zobrazit stránku 252
1 2 ... 248 249 250 251 252 253 254 255 256 257 258 ... 332 333

Komentáře k této Příručce

Žádné komentáře