Text wie initialisieren?

[Heinrich Wolf]

Hi,

ich hab folgenden Code:

Code: Alles auswählen

function ReadPipe(Cmd : String; var Output : String) : Boolean;
  var    Pipe : Text;
  begin
    ReadPipe := False;
    Output   := '';
    POpen(Pipe, Cmd, 'R');
    if fpgeterrno = 0 then
      begin
        ReadLn(Pipe, Output);
        if PClose(Pipe) = 0 then
          ReadPipe := True;
      end;
  end;

fpc sagt dazu:

Hint: Local variable "Pipe" does not seem to be initialized

Wie kriege ich diesen Hint / diese Warnung mit einer Verbesserung meines Codes weg? Ich möchte die Compiler Einstellungen auf Urzustand lassen.

Gruß
Heiner

[carli]

Code: Alles auswählen

{$HINTS OFF}
{$HINTS ON}

POpen hat "var" und nicht das korrektere "out" in der Signatur.

[Heinrich Wolf]

Danke!

Das ist genau so gut wie initialisieren.

[carli]

Danke!

Das ist genau so gut wie initialisieren.

Wie ich bereits sagte, der Hinweis ist eine Fehlleitung. Da müsste korrekterweise ein "out"-Modifier in der Signatur stecken.

[corpsman]

Code: Alles auswählen

function ReadPipe(Cmd : String; var Output : String) : Boolean;
  var    Pipe : Text;
  begin
    ReadPipe := False;
    Output   := '';
    Pipe := '';  // So kommt auch keine Hint mehr
    POpen(Pipe, Cmd, 'R');
    if fpgeterrno = 0 then
      begin
        ReadLn(Pipe, Output);
        if PClose(Pipe) = 0 then
          ReadPipe := True;
      end;
  end;

[carli]

Du kommst von Delphi, richtig?
Die popen-Variante ist die alte prozedurale Methode, wenn du mit Streams arbeiten willst, steht dir die Klasse TProcess zur Verfügung.

[Heinrich Wolf]

Richtig! Ich komme von Delphi. Aber C in Unix mache ich auch seit dem Jahr 1992.

TProcess hab ich mir noch nicht angeschaut.
Ich brauche ReadPipe nur für folgendes:
ReadPipe('gconftool-2 -g /system/http_proxy/host', Proxy);
ReadPipe('kreadconfig --file kioslaverc --group "Proxy Settings" --key httpProxy', s)
usw.

Gruß
Heiner

[Heinrich Wolf]

Code: Alles auswählen

function ReadPipe(Cmd : String; var Output : String) : Boolean;
  var    Pipe : Text;
...
    Pipe := '';  // So kommt auch keine Hint mehr
...

Eine Hint kommt nicht mehr, sondern ein Fehler und es lässt sich nicht übersetzen

[Socke]

Code: Alles auswählen

function ReadPipe(Cmd : String; var Output : String) : Boolean;
  var    Pipe : Text;
...
    Pipe := '';  // So kommt auch keine Hint mehr
...

Eine Hint kommt nicht mehr, sondern ein Fehler und es lässt sich nicht übersetzen

Pipe ist ja auch vom Typ Text (Text <> String); richtiger wäre wohl:

Code: Alles auswählen

FillChar(Pipe, SizeOf(Pipe), 0);

Damit kannst du den Record richtig initialisieren, aber auch hier gibts einen Hineweis, darauf, dass Pipe nicht initialisiert sei, da hier der Parameter als var übergeben wird (als out-Parameter geht das nicht). Den Hinweis wirst du nur los, wenn du irgendeinem Feld des Records einen Wert zuweist:

Code: Alles auswählen

TTextRec(Pipe).bufend := 0;
FillChar(Pipe, SizeOf(Pipe), 0); // oder eine andere Funktion, die den Record initialisiert

[Heinrich Wolf]

TTextRec(Pipe).bufend := 0; finde ich noch besser als {$Hints off}