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; 22 názorů, poslední před 15 hodinami – nevyřešeno
Založil oxidián; 22 názorů, poslední před 15 hodinami – nevyřešeno