Solved

STRINGS

Posted on 1999-01-11
5
167 Views
Last Modified: 2010-04-06
i have a memo that looks something like this...

DTITLE=any string
DTITLE=any string
TTITLE0=any string
TTITLE1=any string
TTITLE2=any string
TITTLE3=any string
TTITLE3=any string

i need to fill in another memo with each string in the line that the number before it says. I then need to delete the beginning of the line, the part that says TTitle1=. and if there are two lines in the string with the same number (like TTITLE3=) then they are both added to the same line(for TTITLE3=anystring, the memo line 3 would look like this anystringanystring).
I need to do this automatically for each line in the memo.
how can this be done?

cando
0
Comment
Question by:cando
  • 2
  • 2
5 Comments
 
LVL 12

Accepted Solution

by:
rwilson032697 earned 200 total points
ID: 1355887
procedure PopulateMemo(Source, Dest : TMemo);
var
  s : TStringList;
  Index : Integer;
  Str : String;
begin
  s := TStringList.Create;
  s.Assign(Source.lines);
  Dest.clear;
  while s.count > 0 do
    begin
      str := s.strings[0];
      Dest.lines.add(copy(str, pos('=', str) + 1, length(str)));
      s.delete(0);
      repeat
        Index := S.IndexOf(Str);
        if Index > -1 then
          begin
            s.delete(Index);
            Dest.Lines[Dest.Lines.count] :=
            Dest.Lines[Dest.Lines.count] + copy(str, pos('=', str) + 1, length(str));
          end;
      until Index = -1;
    end;
  s.Free;
end;

end.
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 1355888
Hi Cando, Hi Rwilson,

this part of the answer

if Index > -1 then
begin
  s.delete(Index);
  Dest.Lines[Dest.Lines.count] :=
  Dest.Lines[Dest.Lines.count] + copy(str, pos('=', str) + 1, length(str));
end;

should be

if Index > -1 then
begin
  s.delete(Index);
  Dest.Lines[Dest.Lines.count - 1] :=
  Dest.Lines[Dest.Lines.count - 1] + copy(str, pos('=', str) + 1, length(str));
end;


meikl
0
 
LVL 27

Expert Comment

by:kretzschmar
ID: 1355889
hi cando, hi rwilson

i have a little change done in rwilsons answer (excuse me rwilson), because i think that any String can hold diferent strings like

DTITLE=any string 1
DTITLE=any string 2
TTITLE0=any string 3
TTITLE1=any string 4
TTITLE2=any string 5
TITTLE3=any string 6
TITTLE3=any string 7

and Raymond compares the whole line, so that are no duplicates be detected before the =-Sign if the string after = is a other

procedure PopulateMemo(Source, Dest : TMemo);
var
  s : TStringList;
  Index : Integer;
  Str : String;
begin
  s := TStringList.Create;
  s.Assign(Source.lines);
  Dest.clear;
  while s.count > 0 do
  begin
    str := s.Names[0];
    Dest.lines.add(s.Values[Str]);
    s.delete(0);
    index := 0;
    while index < s.count do
    begin
      if str = s.Names[Index] then
      begin
        Dest.Lines[Dest.Lines.count - 1] :=
        Dest.Lines[Dest.Lines.count - 1] + s.Values[Str];
        s.delete(Index);
        dec(Index);
      end;
      Inc(Index);
    end;
  end;
  s.Free;
end;

This results in

any string 1any string 2
any string 3
any string 4
any string 5
any string 6any string 7


meikl
0
 
LVL 12

Expert Comment

by:rwilson032697
ID: 1355890
Kretzschmar: Thanks for the fix with the count-1 bit (I still wonder why they made these things 0 based). I had forgotten about the names and values properties of TStringList!

Cheers,

Raymond.

0
 

Author Comment

by:cando
ID: 1355891
thanks for that fix Kretzschmar.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now