Delphi-Quellcode:
// DATEI SPEICHERN
procedure TForm1.Button5Click(Sender: TObject);
var List: TStrings;
var name: string;
var q:integer ;
begin
List := TStringList.Create;
name:=(edit25.Text);
try
for q := 1 to 24 do List.add((FindComponent('edit'+inttostr(q)) as TEdit).text);
//for q := 1 to 16 do List.add(tcombobox((FindComponent('combobox'+inttostr(q))).text);
//for q:= 25 to 39 do List.Add(tcombobox(findcomponent('combobox'+inttostr(q))).text);
List.SaveToFile('C:\'+name+'.txt');
finally
List.Free;
end;
end;
//DATEI LADEN
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:= 25 to 39 do tcombobox(findcomponent('combobox'+inttostr(q))).text := List[q];
finally
List.Free;
end; end;
end.
hallo .. ich bin noch relativ großer anfänger und von daher habich auch demensprechend probleme, aber hoffe mal, dass ihr mir helfen könnt.
die proceduren da oben sollen den inhalt von Editfeldern (1 bis 24)speichern sowie den der 14 comboboxen.. .. soweit so gut .. aber wenn ich nun bei datei laden
for q:= 25 to 39 do tcombobox(findcomponent('combobox'+inttostr(q))).text := List[q];
hinzufüge, dann bekomm ich beim laden immer den fehler: Listenindex überschreitet das Maximum (39).
ich weiß wirklich nicht was man ändern müsste, damit es funktioniert.. ohne den befehl für die comboboxen geht es einwandfrei.
mfg unskilled
PS: wenn jemand quelltext als antwort postet, bitte möglichst komplett, da ich ja noch nicht alles selbst programmieren kann
thx