Code: Alles auswählen
procedure Tfmorev.BitBtn1Click(Sender: TObject);
var
o, p, q: TObject;
x: integer;
begin
For x := 1 To 16 Do
Begin
o := FindChildControl('ename' + inttostr(x));
p := FindChildControl('fnpath' + inttostr(x));
q := FindChildControl('depath' + inttostr(x));
If Assigned(o) And (o Is TEdit)
Then Begin
if TEdit(o).text <> '' then name[x] {der erste fehler wird hier markiert }:= TEdit(o).text;
end;
If Assigned(p) And (o Is TFileNameEdit)
Then Begin
if TFileNameEdit(p).filename <> '' then path[x] := TFileNameEdit(p).filename;
end;
If Assigned(q) And (o Is TDirectoryEdit)
Then Begin
if TDirectoryEdit(q).directory <> '' then dpath[x] := TDirectoryEdit(q).directory;
end;
end;
fmorev.hide;
end;
Code: Alles auswählen
uaddversion.pas(193,37) Error: Argument can't be assigned to
uaddversion.pas(193,48) Error: Incompatible types: got "AnsiString" expected "Char"