Stringlist.text wieder teilen ?

[Cyberbob_at_tot]

Hallo zusammen,
ich habe eine Stringlist in eine Access Datenbank(Stringfeld) geschrieben!

Nun wenn ich dieses Feld auslese will ich den Sting wieder in die Stringlist bekommen.
gibt es da eine einfache möglichkeit?

Den String nach dem Trennzeichen zu durchsuchen und dann zutrennen ist mir einfach zu langsamm!

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var a:String;
Labels:TStringlist;
begin
Labels := TStringList.Create;
Labels.Add(Edit4.Text);
Labels.Add(Edit5.Text);
Edit4.clear;
Edit5.clear;
a:=Labels.Text;
//Und hier soll der String nun wieder in die Editfelder;
.....
//
Labels.free;
end;

end.

Beispielsweise soll das funtionieren!


Was meint ihr dazu ?

sorry fals das schon besprochen wird, habe danach gesucht aber bis jetzt wohl nach den falschen schlagwörtern!

THX

Cyberbo

[Dani]

TStringlist.Strings

Edit: sorry, meinte nicht nicht "Lines" sondern "Strings"

[Cyberbob_at_tot]

ne sorry Lines gibt es nicht unter TStringlist

kannste mir bitte ein Bsp geben ?

[Dani]

Delphi-Quellcode:

procedure foo;
begin
  With TStringlist.Create do
   try
    Add('1');
    Add('2');
    Add('3');
    ShowMessage(Text);
    Clear;
    Text := '1' + #13#10 + '2' + #13#10 + '3';
    ShowMessage(Text);
    ShowMessage(Strings[0]);
    ShowMessage(Strings[1]);
    ShowMessage(Strings[2]);
   finally
    Free;
   end;;
end;

[gsh]

Einfach dein gleichen weg zurück

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject); 
var a:String; 
Labels:TStringlist; 
begin 
Labels := TStringList.Create; 
Labels.Add(Edit4.Text); 
Labels.Add(Edit5.Text); 
Edit4.clear; 
Edit5.clear; 
a:=Labels.Text; 
Labels.clear;
//
Labels.Text := a;
Edit4.Text := Labels[0];
Edit5.Text := Labels[1];
//
Labels.free; 
end; 

end.

Ungetestet

//zu spät

[Cyberbob_at_tot]

ACh so, da kann ich ja auch nix finden

Aber das meine ich nicht, wie ich die Strings aus der Liste hinausbekomme ich mir schon klar!
Aber wenn ich einen String habe der in a steht, den ich durch Stringlist.Text eingefügt habe.
Wie bekomme ich diesen String wieder in die Stringliste hinein ?

[gsh]

Wie ich geschrieben hab:
Labels.Text := a;

[Cyberbob_at_tot]

Wow ist doch super einfach, dachte nicht das das geht!

Delphi-Quellcode:

Labels := TStringList.Create;
Labels.Add(Edit4.Text);
Labels.Add(Edit5.Text);
Edit4.clear;
Edit5.clear;
a:=Labels.Text;
Labels.Clear;
//Und hier soll der String nun wieder in die Editfelder;
Labels.Text:=a;
Showmessage(Labels.Text);
//
Labels.free;

Danke Dani und Gsh für eure schnell Hilfe!

[gsh]

Es geht aber hab ich selber schon oft gebraucht

[Cyberbob_at_tot]

Brauch man ja auch meistens wenn man Stringlisten irgentwo speichern will und dann wieder ne Liste draus machen will!
mal was schönes einfaches

So gute Nacht!