Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Okay :???:
Danke Dir trotzdem für die Hilfe!
:-D
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Hmmmmm - ich setze doch das Add nicht für jedes Zeichen, sondern für jede Zeile.
Habe es mal spaßhalber per SaveDialog und Memo2.Lines.SavetoFile gespeichert. Alles sauber...
Wenn ich es jetzt immer noch nicht verstanden habe :gruebel:
Hättest du zwei oder drei Zeilen Code für mich, was genau Du meinst?
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
:gruebel: Den Satz verstehe ich nicht.
In Memo2 kam genau das gleiche raus, wie in Memo1 - nur eben übersetzt. Mit Umbrüchen und allem...
Was genau meinst Du?
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Hmmmmm - an die Möglichkeit habe ich noch gar nicht gedacht.
function GetISO8859_1(s: string): string;
var
i: Integer;
sNew: string;
begin
sNew := '';
for i := 1 to Length(s) do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Das stimmt.
Deshalb habe ich das Wort "falsch" immer in Anführungszeichen geschrieben. Delphi macht schon was ich ihm sage, aber für mein Problem ist es entweder nicht der richtige Befehl, oder ich muß einen anderen Ansatz wählen. Hast du eine Idee für eine "richtige Implementierung"? Ich nutze auch gerne Befehle außerhalb der Delphi-Sprache (JCL o.ä.).
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Okay:
s := StringReplace(Memo1.Lines, ';', ';', );
s := StringReplace(s, '#', '#', );
s := StringReplace(s, '&', '&', );
s := StringReplace(s, 'ä', 'ä', );
Ergibt:
Mustermann GmbH & # 3 8 ; Co. KG
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Leider ja - Kunde besteht auf vollständige ISO-Konvertierung...
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Okay...
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
s: string;
begin
Memo1.Clear;
Memo1.Lines.Add('Mustermann GmbH & Co. KG');
Memo1.Lines.Add('');
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Geanu das erwarte ich (von einem Computer) :mrgreen:
Ich bräuchte quasi eine Funktion, wo ich die zu suchenden und zu übersetzenden Tags z.B. als Array angeben kann, damit er mehrere auf einmal sucht und ersetzt.
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Sorry - habs zu spät gemerkt. Beachte mein Edit. Es soll der ISO-Code erzeugt werden - das hat der Editor gleich als Zeichen übersetzt :?
Klar - ich muß es aber so machen, weil da noch jede Menge Code dazwischensteht, wo ich Zugriff auf die einzelne Zeile eines Memos brauche.
Aber auch ein:
memo2.lines.text := StringReplace (memo1.lines.text,'&','& # 3 8 ;',) ;
memo2.lines.text...
Forum: Object-Pascal / Delphi-Language
Delphi
by Catbytes,
7. Dez 2005
Hallo,
benötigt werden 2 Memo-Felder und ein Button.
Dazu folgender Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
s: string;