Einzelnen Beitrag anzeigen

khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#26

Re: untypisierte dateien

  Alt 8. Apr 2010, 14:46
Zitat von DeddyH:
Ich hab mal alles bis auf die Bezeichnung aus der Datei rausgeworfen und mit folgendem Code getestet:
Delphi-Quellcode:
var sl: TStringlist;
    s: string;
begin
  sl := TStringlist.Create;
  try
    sl.LoadFromFile('E:\muster.txt');
    s := sl[0];
    OemToChar(PChar(s),PChar(s));
    ShowMessage(s);
  finally
    sl.Free;
  end;
end;
Sieht einwandfrei aus (siehe Anhang).
sieht wirklich gut aus, muss ich mal sehen ob ich noch wo nen Fehler drin hatte
Karl-Heinz
  Mit Zitat antworten Zitat