mein lieber scholli
mit hilfe hätte ich gerechnet, aber dass es nach 2 minuten schon soweit sein würde ..
dankeschön euch allen
war ausserdem noch nen anderer fehler drin is mir gerade aufgefallen
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var List: TStrings;
var w,q :integer;
var name: string;
begin
name:=(edit25.Text);
List := TStringList.Create;
try
List.LoadFromFile('C:\'+name+'.txt');
if List.Count>0 then
for w := 1 to 24 do (FindComponent('Edit' + IntToStr(w)) as TEdit).Text := List[w-1];
for q:= 1 to 16 do tcombobox(findcomponent('combobox'+inttostr(q))).text := List[q+23];
finally
List.Free;
end; end;
so gehts nun auch
danke!