AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ASCII Text-Dateien mit Delphi 2010

Ein Thema von epos · begonnen am 23. Jul 2010 · letzter Beitrag vom 23. Jul 2010
Antwort Antwort
epos

Registriert seit: 27. Dez 2006
2 Beiträge
 
Delphi 11 Alexandria
 
#1

ASCII Text-Dateien mit Delphi 2010

  Alt 23. Jul 2010, 16:50
Hallo,

das Thema ASCII/ANSI/Unicode wurde zwar hier schon häufig behandelt, ich habe jedoch keine
Lösung meines Problems gefunden.
Ich möchte von Delphi5 auf Delphi2010 umsteigen.
Der vorhandene Code schreibt DOS-ASCII Dateien.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  szTest: String;
begin

  szTest := StringOfChar(' ', Length(Edit1.Text));
  CharToOem(PChar(Edit1.Text), PChar(szTest));
  FileSchreiben('K:\TestD5.txt', szTest, 1, true);

end;

function TForm1.FileSchreiben(szDateiname:    String;
                                              szDaten:    String;
                                              nStart:    Integer;
                                              bZeile:   Boolean): Boolean;
var
   FibuFile: TextFile;
begin

   Result := true;

   try
      AssignFile(FibuFile, szDateiname); // Variable mit Datei verbinden

      if not FileExists(szDateiname) then
    begin
         // Datei anlegen da nicht vorhanden
         Rewrite(FibuFile);
         CloseFile(FibuFile);
      end
      else
    begin
         if (nStart = 1) then
      begin
            // Datei löschen wenn vorhanden
            DeleteFile(szDateiname);
            // Datei neu anlegen
            Rewrite(FibuFile);
            CloseFile(FibuFile);
         end;
      end;
      // Datei zum Anhängen öffnen
      Append(FibuFile);

      if (IOResult <> 0) then
      Exit;

      if bZeile then
      Writeln(FibuFile, szDaten)
    else
      Write(FibuFile, szDaten);

      CloseFile(FibuFile);
   except
      Result := false;
   end;
end;
Ich habe nun bereits unter Delphi2010 verschiedenste Sachen probiert, allerdings
bekomme ich nur ANSI-Dateien, die die Umlaute falsch darstellen oder komplett
nicht leserlich sind.


Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  szTest: String;
begin

  szTest := StringOfChar(' ', Length(Edit1.Text));
  CharToOem(PChar(Edit1.Text), PAnsiChar(szTest));
  FileSchreiben('K:\TestD2010.txt', szTest, 1, true);

end;
liefert nur Fragezeichen in der Datei.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  szTest: String;
begin

  szTest := StringOfChar(' ', Length(Edit1.Text));
  szTest := Edit1.Text;
  FileSchreiben('K:\TestD2010.txt', szTest, 1, true);

end;
Stellt die Umlaute falsch dar.

Was mache ich falsch? Kann mir jemand helfen?

Grüße
Christian Matusch
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: ASCII Text-Dateien mit Delphi 2010

  Alt 23. Jul 2010, 16:53
Hallo,

nimm mal AnsiString statt String, mindestens für
szDaten und szTest


Heiko
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.421 Beiträge
 
Delphi 12 Athens
 
#3

AW: ASCII Text-Dateien mit Delphi 2010

  Alt 23. Jul 2010, 17:12
Deklariere mal folgenden Typ

Delphi-Quellcode:
type
  TOemString = type AnsiString(437);
und verwende den als Typ für szDaten in der Deklaration von FileSchreiben.

Delphi wird dann automatisch die nötige Konvertierung vornehmen. Mit der Warnung eines möglichen Datenverlustes musst du allerdings leben, das liegt in der Natur der Sache.
Uwe Raabe
  Mit Zitat antworten Zitat
epos

Registriert seit: 27. Dez 2006
2 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: ASCII Text-Dateien mit Delphi 2010

  Alt 23. Jul 2010, 17:26
Hallo,

@hoika
Die Sache mit AnsiString statt String hatte ich schon erfolglos probiert.

@Uwe Raabe
Die Lösung mit TOemString = type AnsiString(437) klappt prima.
Vielen Dank!


Grüße
Christian Matusch
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz