ShowMessage('*'+ListBx.Items[0]+'*');
var
i1: int32;
[...]
writeln('------');
for i1:= 1 to length(s1) do begin
writeln(ord(s1[i1]));
end;
writeln('------');
Woher kommt das?![]()
![]()
Aliobaba hat geschrieben:Die Variablen sind in einer ListBox gespeichert. Und werden von dieser auf die Festplatte geschrieben bzw. von da wieder eingelesen.
Aliobaba hat geschrieben:Warum kommen die plötzlich da in die Variable rein?
Aliobaba hat geschrieben:Und warum stört dies das "Linux-Kompilat" nicht, das "Windows-Kompilat" aber schon?
Form1.ListBx.Items.LoadFromFile(Form_DB_wechseln.Ed_Pfad_zu_InitTxt.Text);
Form1.ListBx.Items.SavetoFile(Form_DB_wechseln.Ed_Pfad_zu_InitTxt.Text);
Aliobaba hat geschrieben:Geschrieben habe ich das File aber stets mit "Lazarus-eigenen Mitteln":
- Code: Alles auswählen
Form1.ListBx.Items.LoadFromFile(Form_DB_wechseln.Ed_Pfad_zu_InitTxt.Text);
Form1.ListBx.Items.SavetoFile(Form_DB_wechseln.Ed_Pfad_zu_InitTxt.Text);
Aber es könnte durchaus sein, dass ich das File mal mit einem Explorer (Dolphin->Editor) geöffnet, verändert und wieder zurück geschrieben habe.
ues
LConvEncoding;
var
L: TStrings;
...
L := TStringList.Create;
try
L.LoadFromFile(Form_DB_wechseln.Ed_Pfad_zu_InitTxt.Text);
s := L.Text;
s := ConvertEncoding(s, GuessEncoding(s), encodingUTF8);
ListBx.Items.Text := s;
//Form1.ListBx.Items.Text := s;
// ACHTUNG: Wenn diese Routine innerhalb einer Methode von TForm1 aufgerufen wird, sollte hier Form1 nicht stehen !!!
finally
L.Free;
end;
Mitglieder in diesem Forum: Niesi und 2 Gäste