Witajcie.
Mam pewien problem. Jest sobie procedura:
procedure TForm1.Button5Click(Sender: TObject);
var i, j: integer;
line: string;
csv: TStringList;
begin
csv := TStringList.Create;
for i := 0 to StringGrid1.RowCount - 1 do
begin
line := '';
for j := 0 to StringGrid1.ColCount - 1 do
begin
if (j = 36) or (j = 37) then Continue;
line := line + StringGrid1.Cells[j, i];
if j <> StringGrid1.ColCount - 1 then line := line + ';';
end;
csv.add(line);
end;
csv.SaveToFile(SaveFileDialog.FileName, TEncoding.UTF8);
ShowMessage('Plik został zapisany');
end;
Plik się poprawnie zapisuje. Otwieram plik w dowolnym edytorze (Notatnik, PSPad) i wszelkie dziwne znaczki (niemieckie, cyrilica) się wyświetlają poprawnie.
Następnie ten plik importowany jest do eBaya. I wtedy dzieją się cuda. Zamiast poprawnych znaków wyświetlają się krzaki.
Czy ktoś by podpowiedział co jest nie tak?