TStringList.Delimiter := Edit_1.text....TCaption vs. Char

[dummzeuch]

Du hast zwei Moeglichkeiten:

 sl.Delimiter := PAnsiChar(Main_Form.edt_Delimiter.Text)^; oder (einfacher):

 sl.Delimiter := Main_Form.edt_Delimiter.Text[1]; Allerdings solltest Du allererstes pruefen, ob Text nicht leer ist, sonst kommt dabei Muell raus.

[sx2008]

Also ich würde gleich Nägel mit Köpfen machen und ein eigene Funktion/Methode vorsehen:

Delphi-Quellcode:

// liefert das Delimterzeichen zurück
// zusätzlich darf man auch ein #-Zeichen gefolgt von einer Zahl angeben
// Beispiel: '#8'   ==> Tabulatorzeichen
//           '#$FF' ==> ASCII-Zeichen 255
function StringToDelimiter(s:string):char;
const
  DEFAULT_DELIM =';';
var
  i : Integer;
begin
  if s = '' then
    s := DEFAULT_DELIM
  else if s[1] := '#' then
  begin
    i := StrToIntDef(Copy(s, 2, 5), ord('#'));
    s := Chr(i);
  end;
  result := s[1];
end;

sl.Delimiter := StringToDelimiter(Main_Form.edt_Delimiter.Text);

[Popov]

Eigentlich wurde alles schon gesagt, aber vielleicht noch das Wesentliche: Edit1.Text enthält einen String, sl.Delimiter möchte einen Char. Du kannst einem Char nicht ein String zuweisen. Umgekehrt geht es, aber nicht so. String ist eine Zeichenkette, Char nur ein Zeichen.

Eine Möglichkeit ist so wie oben, wobei ich es so nicht machen würde, denn wenn Edit1.Text leer ist und du über Edit1.Text[1] liest, dann kracht es.

Besser ist so:

Delphi-Quellcode:

if Length(Edit1.Text) > 0 then 
  sl.Delimiter := Edit1.Text[1]
else
  ... was auch immer

[juergen]

Hmm, ich sehe gerade, dass mein letzter Post vom Samstag hier fehlt.
Dabei war ich mir sicher den abgesendet zu haben.

@Popov
Genauso hatte ich es auch gemacht. Danke für den Hinweis.

@sx2008,
Bist du Hellseher? Genau das hattee ich benötigt und war am Samstag schon dran, als ich deinen Post sah. Vielen Dank!