Textfile Einlesen problem mit Umlauten

[mr.johnnyb]

Hallo zusammen,

habe gerade ein kleines Problemchen ich lese eine mit ; seperierte Datei zeilenweise ein und Schreibe die einzelnen Spalten in ein Stringgrid. Dies funktioniert im Grunde auch schon nun habe ich einen Datensatz mit einem umlaut hier wird mir aber nur gewurstel eingelesen.

Hier ein Ausschnitt mit dem meiner sei achten relevanten teil, wenn ich die Variable sTmp nun einsehe hat diese schon den Fehler:

Delphi-Quellcode:

Var
  slFilePrev: TStringList;
  iChar, iRow, iCol, iLenDelimiter, iRows, iCols, iColsCk: Integer;
  F: Textfile;
  sGetLn, sTmp, sDelimiter: string;
begin

  try
  //Set important Parameters
    iRow:= 0;
    iRows:= 0;
    iCols:= 0;
    iColsCk:= 0;
     sDelimiter := ';';
    iLenDelimiter := Length(sDelimiter);

  //File Settings
     AssignFile(F,'C:\Test.txt');
    Reset(F);

  //File Validation and count of Col's and Row's
    while not eof(F) do
       begin
        iCols := 0;
        readln(F,sTmp);

Viele Grüße und mit bestem Dank im Vorraus
Johannes