Moin.
Ich habe ein Problem beim Updaten eines Items einer TStringList, das ich mir nicht erklären kann!!!
Ich spreche eine Funktion zum Updaten eines Eintrags an, führt die MessageBox auch den korrekten Wert auf.
Nun ist es aber komischerweise so, dass nach dem Beenden dieser Funktion der Eintrag Value[i] mit einem sch...ß Gleichheitszeichen anfängt. Ich habe nirgenswo geschrieben, das das da rein soll!! ich häng hier schon seit 2 Stunden am Debuggen!!!
Eintrag soll sein: 'EintragderListe'
Eintrag ist: '=EintragderListe'
Befreit mich bitte!!!!! Danke!
Delphi-Quellcode:
var
Values : TStringList;
...
// stinknormales zuweisen
procedure TForm1.EditItem(i : Integer; item1 :
String; item2 :
String);
begin
Values.ValueFromIndex[i] := item1+'
'+item2;
ShowMessage(Values.ValueFromIndex[i]);
//<--- gibt korrekten wert!!!
end;
// Values in eine Datei schrieben
procedure TForm1.WriteToFile();
var
handle : textFile;
i : Integer;
begin
// <--- Hier ist Values[i] schon scheisse!
try
if Values.Count > 0
then
Values.SaveToFile(hostfile)
else
begin
// workaround für den letzten gelöschten eintrag
// leere Datei. Es hat sonst vorher immer geknallt!
assignFile(
handle,hostfile);
ReWrite(
handle);
Write(
handle, '
');
CloseFile(
handle);
end;
except
showMessage('
Fíle kann nicht beschrieben werden');
end;
end;