Che otwierać plik, po czym jego zawartość była wpisywana w okienka Edit, ale nie mogę tego rozpracować pomimo uzywania głowy i google. Pomocy :(
Wkleje to co mam, chociaż wiem że tam pewnie wszystko jest źle ;)
procedure TForm1.BitBtn4Click(Sender: TObject);
var
openDialog : TOpenDialog;
i:integer;
TF : TextFile;
a:string;
begin
opendialog1.Execute;
openDialog1.InitialDir := 'Pliki/';
opendialog1.Options:=[ofFileMustExist];
ShowMessage('Plik otwarty');
a:=opendialog1.FileName;
AssignFile(TF,a);
Reset(TF);
Readln(TF,a);
form1.Edit1.Text:=a;
Readln(TF,a);
form1.Edit2.Text:=a;
Na końcu mam dużo
Readln(TF,a);
form1.Edit2.Text:=a
editów jest więcej (i labeli) więc nie da się tego zapętlić, a
Readln(TF, form1.Edit2.Text)
nie działa, można to jakoś inaczej/zgrabniej napisać?