Ein String an Turbo Pascal übergeben an eine Procedure:

spacer · 3. September 2018

Hallo, guten Abend.

Wie übegibt man bitte einen String an eine Procedure (Turbo Pascal 3.0)?
[code]
TYPE text = string [80];

var text1 : text;

procedure (text1 : string);
begin
....
....
end;
[code]

funktioniert nicht.

Danke.
Gruss

zschunky · 3. September 2018

Pascal ist bei mir schon eine ganze Weile her. Aber mit
procedure procName(var text1 : string);
oder
procedure procName(const text1 : string);

sollte es gehen. Das erste ist call by reference, also der String kann dann in der Prozedur verändert werden. Bei der zweiten Variante wird der String konstant übergeben und kann nicht verändert werden.

spacer · 3. September 2018

Funktioniert nicht . Fehlercode 44.

Danke.
Gruss

M. J. · 4. September 2018

Es könnte auch vielleicht daran liegen, daß der Parameter vom Datentyp nicht übereinstimmt mit dem Datentypen der übergebenen Variable. Verwende mal anstelle von "TYPE text = string[80];" nur noch STRING (also auch ohne []) und schau mal, ob es so funktioniert. Falls es dann noch nicht läuft, poste bitte mal das ganze Programm. Die Übergabe eines Strings in Turbo Pascal müßte eigentlich funktionieren.

Endurion · 4. September 2018

Oha Pascal, das ist laaaange her. Dein TYPE text ist doch ein String-Array mit 80 Einträgen, die Funktion möchte aber nur einen String.
Und muss die procedure nicht noch einen Namen haben?

Bitte den exakten Code posten, sonst ist es nur Rumgerate.

spacer · 4. September 2018

Es kommt "error in line 6"

Die Einrückung verschwindet hier im Text.

Danke.
Gruss

Code

PROGRAM teststr;
var y : integer;
text : string [80];
procedure ausgabe(var wort : string);
var l,x,c : byte;
begin
l:= Length(wort);
FOR x := 0 TO l DO
BEGIN
c := text[x];
writeln(c);
END;
end;
BEGIN
text:='ein text';
ausgabe(text);
Readln (y)
END.

Alles anzeigen

Tale-X · 4. September 2018

Wenn ich das mit Codebeispielen in meinem Buch vergleiche, dann fehlt die Längenangabe beim String in Zeile 6

Asmodean · 4. September 2018

Mein Versuch:
Variable c in Zeile 7 sollte ein char sein und kein byte, denn in Zeile 10 wird ein char übergeben.

spacer · 4. September 2018

klappt nicht.
Fehler in Zeile 8.

Code

PROGRAM teststr;
TYPE text1 = string [80];
var y : integer;
text : text1;
procedure ausgabe(wort : string[80]);
var a,x: byte;
c : char;
begin
a:= Length(wort);
FOR x := 0 TO a DO
BEGIN
c := wort[x];
writeln(c);
END;
end;
BEGIN
text:='ein text';
ausgabe(text);
Readln (y)
END.

Alles anzeigen

Dieser Test funktioniert:

Code

PROGRAM teststr;
TYPE text1 = string [80];
var y : integer;
a,x :byte;
c : char;
text : text1;
begin
text:='ein text';
a:= Length(text);
FOR x := 0 TO a DO
BEGIN
c := text[x];
writeln(c);
END;
end.

Alles anzeigen

Gruss

Tale-X · 4. September 2018

Gerade gelesen: strukturierte Datentypen (auch String) müssen vorher in einer gesonderten Typdefinition vereinbart werden, sonst stellt der Compiler eine Typunverträglichkeit fest:

TYPE texttyp = STRING[80];

PROCEDURE unterprog(t: texttyp);

Also in Deinem Fall:
procedure ausgabe(wort: text1);

spacer · 4. September 2018

Danke, jetzt funktioniert es.

Eine andere Frage:

var c : char;
b : byte;

Ich lese ein char aus von einem String, muss aber den Wert an einem Byte übergeben.
Wie wandelt man bitte ein char in ein Byte?

danke.
Gruss

Asmodean · 4. September 2018

Zitat von spacer

Wie wandelt man bitte ein char in ein Byte?

Type Casting:

b := byte(c);

spacer · 4. September 2018

Danke für die Info.

Das hatte ich mir schwieriger gedacht.

Gruss