Irgendwie komm ich trotzdem nicht weiter.
Ich brauche dringend irgendeine Möglichkeit mehrere .dprojs auswählen und verarbeiten zu können. Ob durch Mehrfachauswahl auf einmal oder mehrere einzelne Auswahlen nacheinander.
Die ganze Prozedur mit der Auslesung und der Eintragung sieht (unfertig) so aus:
Delphi-Quellcode:
procedure TVersionNumberViewer.Button2Click(Sender: TObject);
var
ProgrammName:
string;
iNummer, iName: integer;
Abfrage:
string;
MaxAnzahl: integer;
begin
MaxAnzahl := 8;
OpenDialog1.Execute();
// Programmname auslesen
ProgrammName := (extractfilename(OpenDialog1.FileName));
EditNameAuswahl.Text := (extractfilename(OpenDialog1.FileName));
// XML-Dokument laden
CurrentXML := NewXMLDocument;
CurrentXML.LoadFromFile(
String(OpenDialog1.FileName));
CurrentXML.Active := True;
// Versionsnummer auslesen
for iNummer := 1
to MaxAnzahl
do
begin
VersionsNummern[iNummer] := '
0.0';
end;
// Eintragungen StringGrid
for iNummer := 1
to MaxAnzahl
do
begin
StringGrid1.Cells[0, 1] := ProgrammName;
StringGrid1.Cells[1, iNummer] := inttostr(VersionsNummer);
end;
Damit wird aber nur eins eingetragen. Weil dieses Programm aber unbedingt effizient werden muss, bräuchte ich hier dringend einen Lösungsansatz.
