assign Fehler ?

[malabarista]

ich habe eine Textdatei mit assign geöffnet.

Bekomme allerdings die Fehlermeldung:
Wrong Number of Parameters specified for call to Assign
found declaration assign(Tpersistent)

Code: Alles auswählen

 
unit druckini;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  Buttons, StdCtrls;
 
type
 
  { TFdruckini }
 
  TFdruckini = class(TForm)
    breite_v: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    kopf_m: TMemo;
    fuss_m: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    var_t: TMemo;
    Panel1: TPanel;
    zuruck_b: TSpeedButton;
    procedure zuruck(Sender: TObject);
  private
    { private declarations }
  public
    procedure start;
    { public declarations }
  end;
 
var
  druckini_v: TFdruckini;
 
implementation
 
{$R *.lfm}
 
{ TFdruckini }
 
procedure TFdruckini.start;
 
var
  f:text;
  datei:String;
  breite, il:integer;
  kopf,fuss, erl:TStringlist;
  z,zz:String;
 
begin
datei:='allgem/rechnung.ini';
kopf:=TStringlist.Create;
fuss:=TStringlist.Create;
if fileexists(datei) then
   begin
   assign(f,datei);     //<--fehlerzeile
   reset(f);
   while not eof(f) do
      begin
      readln(f,z);
     ...
     end;
  end;
end;
 
 

An einer anderen Stelle im Programm hat dies ohne Fehlermeldung geklappt:
was ist das Problem ?

[Michl]

Wenn du Assign in einer Klasse aufrufst, springt der Compiler in diese Methode der Klasse, wenn diese dort vorhanden ist. D.h. Assign(f,datei) entspricht Self.Assign(f,datei).

Folgendes sollte funktionieren:

Code: Alles auswählen

System.Assign(f,datei);
// oder
AssignFile(f,datei);

[theo]

Und wenn du schon Stringlisten in Betrieb hast, lade doch einfach mit z.B. "kopf.LoadFromFile(datei)";

[malabarista]

@Michl: funktioniert. danke.

@theo: das habe ich an anderer Stelle auch gemacht. Aber hier hängt die Verarbeitung vom ersten Zeichen im String ab....
trotzdem danke für den Tipp.