Ich hab ein Problem mit meinen Programm
Und zwar kann ich immer dne BItbutton betätigen bis auf wenn ich vorher den Open oder SaveDialog ausgeführt habe...
Als ob nach der Dialogsache die Namen der beiden Daten durch den OpenDialog1.FileName ersetzt wird.. Obwohl beides nichts miteinander zu tun hat...
BitButton
Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
var E, E2: TStringList;
i, ID:Integer;
begin
E:=TStringList.Create; //Datei 1
E.LoadFromFile('.\list1.txt');
E2:=TStringList.Create; //Datei 2
E2.LoadFromFile('.\list2.txt');
E.AddStrings(E2); //Zusammenführen
E2.Free; //Datei 2 kann weg
for i:=1 to 24 do //für 24 Edits
begin
ID:=Random(E.Count); //Index raussuchen
if E.Count=0 then Break;
TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit
E.Delete(ID); //Text auf SL löschen
end;
E.Free;
end;
OpenDialog
Delphi-Quellcode:
procedure TForm2.dxBarButton4Click(Sender: TObject);
var
MyList: TStringList;
i: Integer;
begin
MyList := TStringList.Create;
if OpenDialog1.Execute then
begin
MyList.LoadFromFile(OpenDialog1.FileName);
end;
for i := 1 to 26 do
TEdit(FindComponent('Edit' + IntToStr(i))).Text := MyList[i - 1];
// -1, da der Index in der Stringlist mit 0 beginnt
// MyList[...] entspricht MyList.Strings[...]
MyList.Free;
end;