Hallo, ich such jezt schon den ganzen Tag aber komme leider nicht weiter.
Mein IST Zustand:
Ich lese meine Zwischenablage in die Stringlist und will diese Daten in eine Datenbank schreiben.
Alles kein Problem, bis ich halt Sonderzeichen einfüge.
Ab dem Zeitpunkt geht dann gar nichts mehr.
SOLL Zustand:
Naja ich soll auch die Sonderzeichen irgendwie einfügen können.
Beispieldaten: Hund,4
Also ich such dann nach dem Delimiter (',') und füge die 2 Daten dann in eine Tabelle ein..
Delphi-Quellcode:
procedure addItems();
var
ts : TStringList;
begin
ts := TStringList.Create;
ts.Text := Clipboard.AsText;
delim := ',';
for i:=0 to ts.Count-1 do begin
if Trim(ts[i]) > '' then begin
tmp := Uppercase(ts[i]);
break;
end;
end;
if trim(tmp) = '' then exit;
for i:=1 to Length(tmp) do begin
if Pos(Copy(tmp,i,1),'1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ/- ') = 0 then begin
delim := tmp[i];
break;
end;
end;
QryData.Post;
Ich hoffe jemand kann mir helfen
