Streng

kan du ikke bare gøre:

listbox1.items := listbox2.items

Den kopierer jo bare det hele..

prøv så at kigge lidt på pos() eller ansipos() og copy() funktionerne de vil med garanti kunne løse dit problem... se eventuelt delphi's hjælpe-fil!

Jeg tror det her kan bruges:

var
  TmpS : string;
  TmpP
begin
end;

TmpS:=ListBox1.Items.Text;

2.

Pokkers også! Kan man ikke slette egne indlæg ?

Jeg kom jeg at trykke på 'Udfør' alt for tidligt :(

Nå jeg prøver igen:

procedure TForm1.EtEllerandet;
var
  TmpS : string;
  TmpP : PChar;
  Cnt  : Integer;
begin
  TmpS:='';                  // Smid al teksten fra listboxen over i en simpel string
  for Cnt:=0 to ListBox1.Items.Count-1 do
    TmpS:=TmpS + ListBox1.Items[Cnt];
  TmpP:=PChar(TmpS);        // TmpP peger nu på første tegn.
  while (TmpP^<>#0) do begin // Kør igennem strengen indtil slut
    if TmpP^='"' then        // Hvis der kommer en quote, unquote strengen og smid den over i ListBox2
      ListBox2.Items.Add(AnsiExtractQuotedStr(TmpP, '"'))
    else
      TmpP:=CharNext(TmpP);
  end; {while}
end;

nice.. lige hvad jeg havde brug for