Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#21

Re: Das eigene Programm in Russisch

  Alt 27. Apr 2007, 08:28
Also zu Deinem ersten Punkt: Folgendes habe ich nun per Code gelöst, aber ohne Erfolg.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  myList:TStringlist;
begin
  //erstmal speichern was drin ist
  Memo1.Lines.SaveToFile('c:\test.txt');

  //und dann taufrisch rausholen was drin ist
  myList:=TStringlist.Create;
  myList.LoadFromFile('c:\test.txt');

  //und verteilen
  Label1.Caption := myList.Strings[0];
  self.Caption := myList.Strings[1];
  Button1.Caption := myList.Strings[2];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Screen.MenuFont.Charset := RUSSIAN_CHARSET;
    Memo1.Lines.LoadFromFile('c:\test.txt');
end;
Auf dem Form liegen nur eine Button, ein Label und die Memo. Mehr nicht.

Zu Deiner 2. Aussage kann ich leider gar nix sagen, da mir da einfach die Tiefenkenntnisse fehlen - Leider!
Danke
Tom
  Mit Zitat antworten Zitat