11. Anlagen
 
Fenster schliessen
with system; use system;
with interfaces.c;
with text_io; use text_io;
procedure zeichen is
-- Uebergabe einer Zeichenkette (Moeglichkeit 2 in Kommentar)
procedure mit_sterne_auffuellen (a: in out interfaces.c.char_array);
-- procedure mit_sterne_auffuellen(a:interfaces.c.strings.chars_ptr);
pragma import (C,mit_sterne_auffuellen, "mit_sterne_auffuellen");
a : string (1..20) := "Ada 95 ";
b : interfaces.c.char_array (1..21);
-- b : interfaces.c.strings.chars_ptr;
begin
put ("Eingabe: "); put (a); new_line;
b := interfaces.c.to_c (a);
-- b := interfaces.c.strings.new_string (a);
mit_sterne_auffuellen (b);
a := interfaces.c.to_ada (b);
-- a := interfaces.c.strings.value (a);
put ("Ausgabe: "); put (a);
end zeichen;


Fenster schliessen


 
zurück
  Ada Tour - Dokumentation  
© 2003 Förderverein Ada Deutschland e.V.