Finde ord det står med store bogstaver i memofelt

Det vil sige linien "I universel anæstesi og blodtomhed" også opfylder
kriteriet med store bogstaver ????
Det er ikke bare ordet efter dato du kan bruge ?

Stoney

hej

desvære kan man ikke være sikker på at der står en dato for and det som skal hentes ud. Linien I universel anæstesi og blodtomhed opfylder ikke det krav og skal ikke med det eneste som skal med er KNGE45D Op. plast/reconstr. u. fremmedleg. lig. cruc. ant. som skal deles op i 2 felter felt 1 : KNGE45D og felt 2 : Op. plast/reconstr. u. fremmedleg. lig. cruc. ant. Det eneste som man kan være helt sikker på er at det som skal hentes ud starter med et ord hvor alle bogstaver er med stor og at linien som skal hentes ud slutter med #10#13

En løsning vil være at man laver en function som undersøger om alle bogstaver i ordet er med stort - men hvordan man lige gør det er jeg vist lidt for tungøjet til at kunne se nu. Man ved desuden også at det ordet med stort altid vil være det første ord på linien.

dvs. "KNGE45D" kan godt stå på sin egen linie i nogle tilfælde ?

Hej

det kan det godt - men i det tilfælde vil der kun være tale om at hente denne værdi ud til felt1 og felt2 vil så være tom

Tja ved sku ikke om det er godtnok, bare lige et hurtig udkast til de ting du har oplyst

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
  buf: string;
begin
  for I := 0 to memo1.Lines.Count - 1 do
  begin
    buf := memo1.Lines.Strings[I];
    //- any space
    if pos(' ', buf) <> 0 then
      buf := copy(buf, 0, pos(' ', buf)-1);

    //- ignore date
    if pos('-', buf) <> 0 then
    continue;

    if (buf <> '') and (ansiuppercase(buf) = buf) then
    begin
      showmessage(buf);
      break;
    end;
  end;
end;

hej DKN

smid lige et svar - det fungere det som du har lavet.

svar