V souvislosti s předchozím dotazem, jsem napsal tento kód - trochu zkrácený...
procedure TForm1.otevriTest(filename: string);
var f:textfile;
s1, s3,pracadr,pom:string;
i1,i2:integer;
prehodit:boolean;
begin
label1.font.name := fontOtazky;
label1.font.size := fontsize;
if uppercase...
Založil oxidián; 29 názorů, poslední 27. 5. 2017 – nevyřešeno
Založil oxidián; 29 názorů, poslední 27. 5. 2017 – nevyřešeno