Code: Alles auswählen
var
f : TextFile;
wstr : WideString;
str : string;
begin
str := '../texte/voktest.txt';
{$i-}
System.Assign (f,str);
System.Reset (f);
{$I+}
while not EOF(f) do
begin
System.ReadLn(f,wstr);
Memo1.Lines.Add(UTF8Encode(wstr));
end;
System.Close (f);Code: Alles auswählen
.... Fatal: unknown compilerproc "fpc_read_text_widestr". Check if you use the correct run time ...
und basiert auf TStream. Danke bin beim Testen. Der Output ist noch nicht so wie ich will, jetzt muß ich mir das aber noch genauer ansehen.theo hat geschrieben:Ich hab sowas gemacht, ist aber noch nicht gut getestet (kannst du ja machen
Ist nicht mein Problem, ich musste auf gtk2 umstellen, da es mit gtk1 nicht so wirklich geht. Jetzt sehe ich es aber richtig, daher wird sowohl deutsch als auch griechisch im Memo angezeigt. Die Unit von dir geht gut und ohne Probleme bisher.theo hat geschrieben:Das Memo muss nat. auf einen Font eingestellt sein, welcher griechisch kann.
Achso ja, GTK1 und Unicode funzt nicht so richtig.af0815 hat geschrieben: Ist nicht mein Problem, ich musste auf gtk2 umstellen, da es mit gtk1 nicht so wirklich geht.
Das iterieren durch die Zeichen ist gar nicht so easy. Es scheint nur so, das es bei UTF-8 leichter ist als bei den anderen Zeichenkodierungen.af0815 hat geschrieben:Nochmals danke, jetzt kann ich ein wenig weiter. Mal sehen was das ganze für jetzt noch für Überraschungen bereit hält.
Welche Teile von meinem Zeug hast du denn verwenden können?af0815 hat geschrieben: Wenn du nichts dagegen hast, lege ich die Werke in den svn von den lazsnippets..
Ich habe das was ich derzeit besonders benötige in wopruniloader.pas gefunden.theo hat geschrieben:Welche Teile von meinem Zeug hast du denn verwenden können?
Code: Alles auswählen
uses wopruniloader;
{ TForm1 }
procedure TForm1.actStartExecute(Sender: TObject);
var aFilename : string;
aStringList1,
aStringList2 : TStringList;
i,j : integer;
aString : string;
//
aStream : TFileStream;
str : string;
aUniloader: TUniLoader;
begin
aFilename := './alles.csv';
// Objekte erzeugen
aStringList1 := TStringList.Create;
aStringList2 := TStringList.Create;
// Datei in Stream einlesen
aStream := TFileStream.Create(aFilename,fmOpenRead);
// Streamzeiger sicherheitshalber an den Anfang setzen
aStream.Seek(0,soBeginning);
// Konvertieren
aUniLoader := TUniLoader.Create(aStream);
Label1.Caption := aUniloader.FileTypeStr;
aStringList1.Text:= aUniLoader.GetFullString;
Memo1.Text:= aUniLoader.GetFullString;
// In stringlist1 ist jetzt das ganze File
StringGrid1.ColCount := 9;
StringGrid1.RowCount := aStringList1.Count + 1;
for j:= 0 to aStringList1.Count -1 do
begin
aStringList2.QuoteChar:= '"';
aStringlist2.Delimiter:= ';';
aStringList2.DelimitedText:= aStringList1.Strings[j];
// falls die länge nicht stimmt, weitermachen
if aStringList2.Count <> 8 then continue;
//ins Grid bringen
for i := 0 to aStringList2.Count - 1 do
begin
aString := aStringList2.Strings[i];
StringGrid1.Cells[i+1,j+1] := aString;
end;
end;
aStringList1.free;
aStringList2.free;
aUniLoader.free;
aStream.free;
end;Gerne.af0815 hat geschrieben:Theo, danke nochmals.
erweitert.
Code: Alles auswählen
function TUniLoader.GetFileTypeStr: string;
begin
if not fHaveType then CheckFileType;
case fUniFileType of
ufUndefined: Result := 'Undefined';
ufUtf8: Result := 'Utf8';
ufUtf16be: Result := 'Utf16be';
ufUtf16le: Result := 'Utf16le';
ufUtf32be: Result := 'Utf32be';
ufUtf32le: Result := 'Utf32le';
end;
end;
Verein
Suche
Links