Problem:Incompatible types: got "TStrings" expected "TEdit"

[jaslaz]

Das Programm zeigt mir an der angegebenen Stelle immer diese Fehlermeldung: Error: Incompatible types: got "TStrings" expected "TEdit"
Wie kann ich das Problem beheben?

Code: Alles auswählen

implementation
 
{ TForm1 }
 
Var geheim: Tstrings;
 
 
procedure load;
begin
geheim:=Tstringlist.Create;
geheim.LoadFromfile('x.txt');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.text ='Person 1') and (edit2.text='Passw1') and (checkbox1.checked) or
     (edit1.text ='Person 2')  and (edit2.text='Passw2') and (checkbox2.checked) then
     edit3:={hier zeigt er die Fehlermeldung}geheim else
     edit3.clear;
 
 
 
end;
 
 
 
initialization

übrigens das soll so ne Art Passwortschutz werden

Danke schon mal im vorraus

[theo]

Du kannst nicht eine TStringList direkt einem TEdit zuweisen, das sind ganz verschieden Dinge.
Du kannst aber den Textinhalt zuweisen:

edit3.text:=geheim.text;

übrigens: Vergiss nicht, die StringList wieder freizugeben, wenn du sich nicht mehr brauchst:

geheim.free;

[jaslaz]

übrigens: Vergiss nicht, die StringList wieder freizugeben, wenn du sich nicht mehr brauchst:

geheim.free;

Wo muss das Geheim.free denn dann hin ?

[theo]

übrigens: Vergiss nicht, die StringList wieder freizugeben, wenn du sich nicht mehr brauchst:

geheim.free;

Wo muss das Geheim.free denn dann hin ?

Kommt drauf an. Auf jeden Fall, wenn du es nicht mehr brauchst.

Normalerweise erstellt man sowas im Konstruktor oder im OnCreate Ereignis des Formulars und gibt es im Destruktor oder OnDestroy wieder frei.
Wenn du es bereits früher nicht mehr benötigst, kannst du es auch früher freigeben. Spart Speicher. Ich sehe ja nicht wo du z.B. load aufrufst.

[Scotty]

Mach am besten eine Funktion draus:

Code: Alles auswählen

function Geheim:string
var sl:TStringList;
begin
  sl:=TStringList.Create;
  try
    sl.LoadFromFile('xy.txt');
   Result:=sl[0];//der erste Eintrag der LIste wird dem Ergebnis der Funktion zugewiesen
  finally
    sl.free;//ein try-finally-Block wird immer ausgeführt; damit ist das free sicher gestellt
  end;
end;
 
edit1.text:=Geheim;

Besonders geheim ist das Vorgehen allerdings nicht, weil in der Textdatei wahrscheinlich Klartext steht. Außerdem könntest du die Funktion auch als eine private Methode in die Klasse aufnehmen.

Code: Alles auswählen

type
  TForm1=class(TForm)
    ...
  private
    function LoadPasswordFromFile(const aFileName:string):string;
  ...
  end;
 
function TForm1.LoadPasswordFromFile(const aFileName:string):string;
var sl:TStringList;
begin
  sl:=TStringList.Create;
  try
    sl.LoadFromFile(aFileName);
   Result:=sl[0];//der erste Eintrag der LIste wird dem Ergebnis der Funktion zugewiesen
  finally
    sl.free;//ein try-finally-Block wird immer ausgeführt; damit ist das free sicher gestellt
  end;
end;
 
edit1.Text:=LoadPasswordFromFile('xy.txt');

Eine Fehlerquelle wäre bei einer Stringlist, dass mehr als eine Zeile in der Eingabedatei sind.

[jaslaz]

Code: Alles auswählen

function LoadPasswordFromFile(const aFileName:string):string;
  ...
  end;
 

Was kommt bei diesem ... hin ?

[carli]

Das, was er oben in dem Post schon geschrieben hat

[Euklid]

Code: Alles auswählen

function LoadPasswordFromFile(const aFileName:string):string;
  ...
  end;
 

Was kommt bei diesem ... hin ?

Unter "private" werden alle functions und procedures und Variablen deklariert, auf die nur die Klasse selbst Zugriff haben soll.

- Euklid