For-Schleife verursacht Zugriffsverletzung

[kiar]

wie wird den deine stringliste gefüllt?

es sieht aus, als ob sie nicht da ist.

raik

[faux]

Zitat von Treffnix:

Ich würde mal tippen, du hast das UInName := TStringlist.Create; vergessen

Wie konnte mir das nur passieren??? Danke! Da wär ich erst in 2 Stunden draufgekommen, wenn ich den QT von oben bis unten durchgegangen wäre!!!

DANKE!

[faux]

Zitat von MrSpock:

Hallo faux,

dann ist ja noch UINList.Strings[ContactList.ItemIndex] ein Kandidat für die Listenindexüberschreitung!?
Stelle im debug Mode doch einmal fest, was UINList.Count ist und welchen Wert ContactList.ItemIndex hat.

debug Mode????

[MrSpock]

Ich meinte im Einzelschritt-Verfahren aus der IDE.

[faux]

Außerdem hatte ich noch einen Programmfehler:

Delphi-Quellcode:

procedure TForm1.Senden1Click(Sender: TObject);
var
  i: Integer;
  open: boolean;
  {OpenUIN: TList;
  UINName: TStringList;}
begin
  open := true;
  if UINName.Count > 0 then
    for i := 0 to UINName.Count - 1 do
      if UINList.Strings[ContactList.ItemIndex] = UINName.Strings[i] then
        open := false;
  if open then
  begin
    ShowMessage('Öffnen!');
    UINName.Strings[i] := UINList.Strings[ContactList.ItemIndex]; //Das i ist außerhalb der For-Schleife... Deswegen gab es gleich noch eine Indexüberschreitung.... :?
  end
  else
    ShowMessage('Net!');
end;

[MrSpock]

Hallo faux,

der Schleifenindex i sollte nicht außerhalb der Schleife benutzt werden. Auf welchen Index willst du denn zugreifen?

[faux]

Beim schreiben der ganzen prozedur hatte ich ein einziges blackout:

UINName.Strings[i] := UINList.Strings[ContactList.ItemIndex]; habe ich geändert auf
UINName.Add(UINList.Strings[ContactList.ItemIndex]);