Forum: Programmieren allgemein
Delphi
by Capa,
10. Aug 2011
ergebnis ist das richtige ja
Forum: Programmieren allgemein
Delphi
by Capa,
10. Aug 2011
Hab gerade was gefunden was meine arbeit schonmal extrem erleichtert
http://www.delphipraxis.net/1106525-post9.html
das funzt wenigstens
procedure TForm1.Button1Click(Sender: TObject);
var x: TStringlist;
I: Integer;
begin
x := TStringlist.Create;
x.Text := IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt');
Forum: Programmieren allgemein
Delphi
by Capa,
10. Aug 2011
Auch die lange version funzt nicht
procedure TForm1.Button1Click(Sender: TObject);
var x: TStringlist;
I: Integer;
begin
x := TStringlist.Create;
x.Text := IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt');
for I := 0 to x.Count - 1 do
Listbox1.Items.Add(Utf8ToAnsi(TIdURI.URLEncode(x)));
Forum: Programmieren allgemein
Delphi
by Capa,
10. Aug 2011
Habs probiert aber bei dem URLEncode gibts noch Probs :/
procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.Items.Text := Utf8ToAnsi(TIdURI.URLEncode(IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt')));
end;
Forum: Programmieren allgemein
Delphi
by Capa,
10. Aug 2011
UTF8toString funzt leider auch nicht der wandelt es nicht um
Forum: Programmieren allgemein
Delphi
by Capa,
10. Aug 2011
anscheinend nicht das richtige
also was ich bisher rausgefunden hab das ist UTF-8
http://www.utf8-zeichentabelle.de/
%C3%B6 = ö (nach c3 b6 suchen)