Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
Nee, das ist ziemlich einfach
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
Bereichsüberprüfung hab ich eingeschaltet, aber keine Fehlermeldung , auch wenn die Email ganz am Ende der Datei steht :gruebel:
Allerdings hab ich , wie oben empfohlen die Abfragen vertauscht
stop := at;
while (stop < length(aValue)) and (aValue in permittedChar) do
begin
Inc (stop)
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
...mit dem Code hab ich wieder diesselben Probleme.
An die Email wird noch ein Anführungszeichen gehängt, wenn ich ein Zeichen abziehe ,
dann fehlt manchmal wieder ein Zeichen :gruebel:
Ich habs x-mal getestet, der Code oben ist der einzige , bei dem alles funkt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
Ja, Danke für die Hilfe !
An diesem Fehler hab ich jetzt schon 2 Tage rumgebastelt ! :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
STIMMT !
Immer wenn das Zeichen das letzte Zeichen in der Datei ist , fehlt es !
Ansonsten kein Fehler mehr !
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
...hab ich auch schon gedacht
wenn ich aber 1 Zeichen abziehe, dann fehlt bei manchen Emails ein Zeichen
....
....
Mytext:= Copy (aValue,start+1,(stop-start-1));
....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
...der Aufruf erfolgt so....
procedure TForm2.Button7Click(Sender: TObject);
var Datei1:String;
begin
if opendialog1.Execute then
begin
Datei1:=opendialog1.FileName;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
5. Jan 2009
....mit diesem Code hab ich alle Emails aus dem Text rausgefiltert.
Dummerweise erhalte ich bei den Emails immer noch ein Anführungszeichen "
an die Emails drangehängt.
Delphi gibt mir immer wieder neue Rätsel auf :wall:
Dieses Zeichen ist doch gar nicht zulässig
...ich kann keinen Fehler finden.
Frage an die Experten im Forum , wo ist da ein Fehler ????
procedure TForm2.ExtracteMail...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Jan 2009
Ja, genau
Ich hab mit Pos immer nur die erste Email bekommen, aber mit PosEx funktioniert es jetzt !
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
3. Jan 2009
Hallo,
ich möchte ein Memo-Textfeld , in das eine Textdatei geladen wurde, nach einem Zeichen durchsuchen.
Funktioniert auch , aber immer nur ein Zeichen.
Leider findet er immer nur das erste Zeichen und ich blick leider nicht durch ,wie man die Suche fortsetzen kann. :wall:
Es sollen alle im Text befindlichen Zeichen gefunden werden, ich möchte damit die Email-Adressen im Text speichern
...