Merken von Daten

[K-Asche]

Hi @ all,

habe ein kleines Problem. Ich ändere in einer Datenbank eine Identnummer in eine andere.
Nun möchte ich mir merken, von welcher Nummer ich in welche Nummer umgewandelt habe.
Das heißt ich brauche eine Art Liste, der ich die Nummer vor und die Nach der Änderung mitgeben kann, die ich dann
anhand der Werte von NummerVor oder NummerNach oder nach beidem abprüfen kann ob diese Nummer bereits umgewandelt wurde und/oder in welche Nummer gewandelt wurde.
Jemand eine idee?

Gruß

CrazyPlaya

[marabu]

Hi,

du kannst deine Basis-Tabelle einfach um das Feld OLD_ID erweitern und dir in diesem Feld die alte ID merken.

Grüße vom marabu

[K-Asche]

Leider nicht ganz so einfach, die Tabelle ist eine BTrieve Datei leider kein SQL

[K-Asche]

Ich habe jetzt mal versucht mir ein Array von einem Record, welcher die benötigten Werte enthält zu erstellen und dann das Array abzufragen. Dazu übergebe ich das Array an eine Funktion, die dieses Element für Element durchprüfen soll. Funktioniert aber auch nicht, da ich ja das Array bereits mit SetLength auf einen bestimmten Max - Wert gestezt habe. Sobald ich nun auf das Element 1 zugreife bekomme ich eine Exception.

Hier mal der Code:

Delphi-Quellcode:

// Aufruf der Function
IndexOf(Value, IntToNr(Test);

Delphi-Quellcode:

function TfrmFortschritt.IndexOf(Ar : TCop; Value : String) : Integer;
Var I : Integer;
    S : String;
begin
  S := Value;
  Result :=  -1;
  For I := 0 to length(Ar) do Begin
    If CompareStr(S, Ar[I].BetAlt) = 0 then Begin
      Result := 1;
      break;
    End;
  End;
end;

Was mach ich falsch?

[marabu]

Der alte Off-By-One Fehler - der Index muss bis Pred(Length(Ar)) laufen. Aber warum verwendest du nicht einfach einen Assoziativspeicher:

Delphi-Quellcode:

var 
  Map: TStringList;
  NewId, OldId: String;
begin
  Map := TStringList.Create;
  NewId := 'A1';
  OldId := '1A';
  Map.Values[NewID] := OldID;
end;

marabu