Sonderzeichen verarbeiten mit StringList

[piirate]

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 :oops:

[Der schöne Günther]

Hallo - Ich würde noch gerne wissen, ab wo genau nichts mehr geht.

Setz doch mal ein paar Haltepunkte und schau mal, wo er hängenbleibt.

[Bummi]

kann es sein dass Du etwas in der Art suchst?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  ts, fields: TStringList;
  i,j:Integer;
begin

  ts := TStringList.Create;
  fields := TStringList.Create;
  try
    ts.Text := Clipboard.AsText;
    fields.Delimiter := ',';
    fields.StrictDelimiter := true;
    for I := 0 to ts.Count - 1 do
        begin
          fields.DelimitedText := ts [i];
          for j := 0 to fields.Count - 1 do
             TuetwasMitFeld(fields[j]);
        end;
  finally
    ts.Free;
    fields.Free;
  end;
end;

[DeddyH]

StrictDelimiter in Delphi 7?

[edit] Hilft das hier evtl. weiter?

Delphi-Quellcode:

procedure SplitString(const Src: string; Delimiter: char;
  DestList: TStrings);
var
  PLast, PCurrent: PChar;
  s: string;
begin
  Assert(Assigned(DestList));
  DestList.BeginUpdate;
  try
    DestList.Clear;
    PLast := PChar(Src);
    PCurrent := PChar(Src);
    while PCurrent^ <> #0 do
      begin
        if PCurrent^ = Delimiter then
          begin
            SetString(s, PLast, PCurrent - PLast);
            DestList.Add(s);
            PLast := CharNext(PCurrent);
          end;
        PCurrent := CharNext(PCurrent);
      end;
    SetString(s, PLast, PCurrent - PLast);
    DestList.Add(s);
  finally
    DestList.EndUpdate;
  end;
end;

[/edit]

[p80286]

Eine andere Möglichkeit wäre

Delphi-Quellcode:

p:=pos(',',satz);
if p>1 then begin 
  repeat
    liste.add(copy(satz,1,p-1);
    delete(satz,1,p); 
    p:=pos(',',satz);
  until p=0;
end;
liste.add(satz);

als Anregung

Gruß
K-H

[piirate]

Also das Problem liegt an den Sonderzeichen,
ich glaub ich hab den Fehler gefunden...

Delphi-Quellcode:

for i:=1 to Length(tmp) do begin
      if Pos(Copy(tmp,i,1),'1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ/- ') = 0 then begin
         delim := tmp[i];
         break;
      end;

ich muss hier einfach die Sonderzeichen eintragen denke ich, dann haut das hin.

Speichern funktioniert nun. Aber die Darstellung ist immer noch Falsch, bekomme dann nur komische Blöcke für die Sonderzeichen...

[DeddyH]

Mich beschleicht das Gefühl, ich habe das Problem nicht verstanden :gruebel:. Mal anders gefragt: was kommt rein, und was soll rauskommen?

[piirate]

Rein kommt ein String der durch einen Delimiter getrennt ist.
z.B. T100,3
Ersterer Wert ist eine Identifikationsnummer und letzterer eine Menge.
Diese Werte sollen getrennt, in die Datenbank und in ein TDBGrid geschrieben werden.
Funktioniert mit dem Code auch. Nur eben bei Sonderzeichen bei der
Identifikationsnummer hab ich nun Probleme mit der Darstellung im Grid.

[DeddyH]

Und mit Sonderzeichen meinst Du Umlaute, "&", "%" usw.? Verwenden DB und Programm auch denselben Zeichensatz?

[piirate]

In der Datenbank steht es richtig drin.
Ich glaub ich meine die falschen Sonderzeichen :oops:

Nicht nur unsere sodern auch Slowenische usw.. z.B. Š,..

Wo sehe ich den Zeichensatz, den dass Programm benutzt?