Hi Leute!
ich hab ein kleines, aber irgendiwe sehr ärgerliches Problem mit der Inputbox und komme einfach nicht weiter.
Ich möchte einfach einen String mit wenigen Zeichen über eine Inputbox einlesen. Die Variable ist global deklariert! Die Inputbox wird beim Laden einer Form aufgerufen.
Sobald ich das Programm starte, erscheint die Box mit dem im Sourcecode vordefinierten Default Text.
klicke ich jetzt allerdings in das Textfeld der Inputbox, hängt sich das Programm auf. Die Systemauslastung des Prozesses steigt auf 100% und das Programm lässt sich nur noch über den Task Manager beenden.
Lege ich die Variable statisch, also direkt über eine Zuweisung aus dem Sourcecode fest, funktioniert alles wunderbar.
Ich werde euch den Sourcecode mal eben unter mein Problem stellen, vielleicht hat ja jemand von euch eine Idee, ich schätze dass die Lösung ganz einfach ist nur dass ich einfach nicht drauf komme.
Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject);
begin
path:=Inputbox('Eingabe','Gib hier den Pfad an:','C:\');
if fileexists(path + 'muh.txt') then
stdMemo.Lines.LoadFromFile(path + 'Session.txt');
end;
Besten Dank!