Zeile zerlegen und teile in Variablen einfügen

[Äfan]

Hi,

jetzt häufen sich meine fragen wieder habe letzter zeit wenig mit delphi gemacht, aber jetzt gehts wieder los, mit den fragen:

Ich habe folgenden Text in Variable "Line":

ShowMessage ('haha', OK, Information)

Ich will, dass beim klick auf den button, der text zerlegt wird bzw. die informationen gewonnen werden und in die jeweiligen variablen eingefügt werden. In variable "Text" soll das "haha" rein kommen, in Typ soll "OK" und in Icon soll "Information" rein kommen, wie stell ich das jetzt am besten an ? Ich habe es mit hilfe von Ultimator schon so hinbekommen, aber es funktioniert nicht richtig. Bitte um Hilfe !?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Line: string;
  poskommaeins: integer;
  text: string;
  poskommazwei: integer;
  typ: string;
  icon: string;
begin
  line := Memo1.Lines.Strings[0];
  poskommaeins := pos(',' , line);
  Text := copy(line, pos('(', line), pos(',', line));
  delete(line, 0, posKommaEins);
  Typ := copy(line, 0, posKommaZwei);
  Icon := copy(line, posKommaZwei, pos(')',line));
  Edit1.Text := 'Text: ' + Text + 'Typ: ' + typ + 'Icon: ' + icon
  end;

mfg

[Ultimator]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Line: string;
  poskommaeins: integer;
  text: string;
  poskommazwei: integer;
  typ: string;
  icon: string;
begin
  line := Memo1.Lines.Strings[0];
  poskommaeins := pos(',' , line);
  Text := copy(line, pos('(', line)+1, posKommaEins - pos('(', line));
  posKommaZwei:= posEx(',', line, posKommaEins) +1;
  Typ := copy(line, posKommaeins+1, length(line)-posKommaZwei);
  Icon := copy(line, posKommaZwei, pos(')',line));
  Edit1.Text := 'Text: ' + Text + 'Typ: ' + typ + 'Icon: ' + icon
end;

Hab nochmal nachgedacht, und das ist dabei rausgekommen. Probiers aus obs klappt, hab grad kein Delphi zur Hand

[Äfan]

Ne, noch net ganz, kommt aber der sache schon näher:

Text: 'haha',
Typ: OK, Information
Icon: OK, Information)

Edit:
Also ich habe bei Text := am ende noch -1 gemacht, also das komma ist somit weg. Also das bei bei Text funktioniert schon. Jetzt is nur noch das Problem mit Typ und Icon

[Khabarakh]

Delphi-Quellcode:

Typ := copy(line, posKommaeins+1, posKommaZwei - posKommaEins - 2);
  Icon := copy(line, posKommaZwei, pos(')', line) - posKommaZwei - 1);

Aus dem Kopf, bei "- 1" und "- 2" bin ich mir nicht so sicher.

[Äfan]

Ne, da kommt des raus:

Text: haha
Typ:
Icon: OK, Informatio

Also ich bekomme das auch durch änderungen net hin...

[Torpedo]

Das müsste funktionieren:

Delphi-Quellcode:

line := edit1.Text;
delete(line,1,pos('''',line));
text.Text := copy(line,1,pos('''',line)-1);
delete(line,1,pos('''',line)+1);
typ.Text :=  trim(copy(line,1,pos(',',line)-1));
icon.Text := trim(copy(line,pos(',',line)+1,length(line)-pos(',',line)-2));

[Äfan]

Jo, jetzt funktionierts. Nur am ende muss -1 anstatt -2 hinkommen.

thx

[Torpedo]

Vielleicht solltest du zuerst alle Leerzeichen entfernen, wenn sie nicht zwischen ' ' stehen.
Dann ist es leichter die Sachen zu trennen.
Das kannst du z.B. mit der Funktion:

Delphi-Quellcode:

function Leerzeichenloeschen(line:string):String;
var instring:Boolean;
    i:integer;
begin
  instring := false;
  result := line;
  for i := length(line) downto 1 do
  begin
    if (result[i] = ' ') and (not instring) then
      delete(result,i,1);
    if result [i] = '''' then
      instring := not instring;
  end;
end;

[Äfan]

Jo, ich muss jetzt erst mal da durch blicken durch die ganzen copy's und pos