Hallo,
Zitat:
Ist doch eine recht einfache Lösung,oder gibt es noch einen anderen Weg???
Naja, eine Lösung kann ich jetzt eigentlich nicht erkennen (liegt wohl auch daran, dass ich - anhand der gegebenen Code-Fragmente - das Problem nicht wirklich sehe).
Einen anderen Weg gibt es vermutlich schon.
Und eine Lösung, die ohne globale Variable auskommt gibt es vermutlich - nö, da bin ich mir fast sicher - auch. Was spricht gegen:
Delphi-Quellcode:
//var vListe : Smallint=1; <-- da weg
procedure TForm1.Button5Click(Sender: TObject);
var
vListe : Smallint; // <-- da hin
i : Smallint;
ze,sp1,sp2,sp3 : String;
begin // dies ist nur ein Auszug von dieser Prozedur
vListe := 1;
for i := 0 to ListView1.Items.Count -1 do
begin
ze := ListView1.Items[i].Caption;
sp1 := ListView1.Items[i].SubItems[0]
sp2 := ListView1.Items[i].SubItems[1]
sp3 := ListView1.Items[i].SubItems[2]
inc(vListe);
end;
end;
Solange Du uns nur zusammenhangslose Code-Krümelchen zur Verfügung stellst, wird das nix werden mit dem Aufzeigen anderer Wege. Aber: Wenn Du bis November warten möchtest, dann ist die Wahrscheinlichkeit für noch dunklere, noch trübere und vorallem mit dickem, zähem Nebel verhangene Tage doch deutlich höher als es dies im Moment der Fall ist; dann wird es vermutlich auch ein günstiger Zeitpunkt sein, mit der langen Stange in der milchigen Brühe herumzustochern, um vielleicht das passende (Weg oder Lösung) herauszupicken.
Nix für ungut!
Gruß